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Abstract 


A  fonnal  proof  is  given  for  the  symmetry  of  a  conical  Navier-Stokes  equation  solver 
that  has  been  employed  in  the  computation  of  vortex  asymmetries.  The  conical 
Navier-Stokes  equations  are  presented  as  developed  from  the  generalized  coordinate 
three-dimensional  Navier-Stokes  equation  approach.  The  solver  is  then  discussed  in 
detail.  The  proof  is  first  sketched  to  clarify  what  must  be  shown  to  demonstrate 
symmetry.  TTie  details  of  the  imphcit  and  exphcit  side  symmetry  relations  are  then 
presented  using  in  part  the  MACSYMA  symbohc  manipulation  expert  system. 
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Introduction 


This  report  was  prompted  by  the  need  to  demonstrate  symmetry  for  a  conical  Navier- 
Stokes  algorithm  used  in  studies  of  vortex  asymmetry  about  cones  at  incidence.  This 
issue  arises  because  vortex  asymmetry  has  been  observed  to  occur  “naturally”  for  the 
conical  Navier-Stokes  equations  (i.e.,  without  external  perturbations)  whereas  it  is 
apparently  not  observed  in  similar  three-dimensional  Navier-Stokes  calculations. 
Vortex  asymmetry  is  found  in  two  of  three  possible  solutions  to  the  nonlinear 
equation  set.  These  solutions  have  been  found  to  be  stable  to  perturbations  whereas 
the  third  (symmetric)  solution  is  thought  to  be  unstable.  In  fact,  the  asymmetric 
solution  is  found  after  the  solver  has  converged  partially  to  the  symmetric  solution. 
It  is  felt  that  roundoff  error  perturbations  excite  the  instability  and  redirect  the  solver 
to  the  asymmetric  solution.  However,  it  is  also  conceivable  that  some  algorithm 
related  asymmetries  exist  which  produce  the  same  result,  thereby  negating  any 
conclusions  drawn  from  solutions  obtained  by  these  solvers.  It  is  therefore  imperative 
that  the  algorithm  be  symmetric  before  computational  arithmetic  is  employed. 

The  following  sections  report  the  govemmg  equations  that  form  the  basis  of  this 
solver,  the  numerical  method  used  and  finally  the  symmetry  proof. 
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Governing  Equations 


The  conical  thin-layer  Navier-Stokes  equations  are  obtained  from  discretizations  of 
the  generalized  coordinate  three-dimensional  thin-layer  Navier-Stokes  equations.  A 
grid  is  chosen  such  that  the  ^-direction  is  along  rays  from  the  cone  tip.  Properties  are 
then  assumed  constant  along  these  rays.  In  their  most  general  sense  the  thin-layer 
Navier-Stokes  equations  may  be  written 

(1) 
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with  V  &  w  as  average  velocities  between  cells  and  ^x’^y’^z’^xy’^xz  ^  V 
their  usual  definitions. 
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A  steady  form  of  the  above  equations  is  found  by  neglecting  the  time  derivative  of  the 
conserved  variables.  The  resulting  equations  are  solved  on  a  single  crossflow  (11,0 
plane  grid  in  which  the  ^direction  lines  are  rays  from  the  cone  tip  or  origin.  The 
conical  equations  result  when  constant  property  boundary  conditions  are  enforced  in 
the  radial  direction,  as  described  later  in  the  numerical  method  section.  It  should  be 
noted  that  these  boundary  conditions  are  necessary  only  because  a  three-dimensional 
solver  has  been  modified  to  form  the  conical  solver.  Boundary  conditions  are  needed 
only  on  the  surface  and  far  field  boundaries  for  the  conical  Navier-Stokes  equations. 


Numerical  Method 


An  implicit  upwind  symmetric  factorization  finite  volume  scheme  was  employed  to 
solve  the  above  equations.  The  basic  algorithm  consists  of  the  imphcit  or  left  hand 
side  (inS)  and  the  exphcit  or  right  hand  side  (RHS)  in  the  form 

LH3,Q^)  LTQ  =  imS(Q”)  (2) 


An  iteration  proceeds  from  a  known  to  by  solving  equation  (2)  for  and 
using 

=  Q”  +  hTQ 


RHS 

The  RHS  is  differenced  using  Roe’s  [Roe]  flux  difference  sphtting  (FDS)  and  the  Van 
Albada  [VanAl]  limiter  through  Van  Leer’s  [VanLe]  MUSCL  approach.  A  convenient 
way  of  writing  the  FDS  is  presented  by  Vatsa,  Thomas  and  Wedan  [VTW],  who  detail 
the  contribution  of  the  ^  -direction  fluxes  as 

as  '  AS 


where 

and  Qj^  and  are  functions  of  neighboring  points  as  described  later  in  the  limiter 
section  and  \A\  is  the  diagonalized  matrix 

\A\  =  7iA| 


formed  from  tbe  Roe  averaged  variables  (a  function  of  Q^and  with  A  the 
diagonal  eigenvalue  matrix,  T  the  matrix  of  left  eigenvectors  of  A  and  the  matrix 
of  right  eigenvectors  of  A.  Note  that  these  matrices  are  also  used  for  the  LHS  but  in 
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a  slightly  different  form.  The  actual  matrices  can  be  found  in  several  places  including 
the  Vatsa,  Thomas  and  Wedan  reference  or  through  the  MACSYMA  outputs  to  be 
presented  in  a  later  section. 

Flux  Limiters 

Of  interest  at  this  point  is  how  g^andQ^  are  chosen.  In  tins  work  Van  Leer’s  [VanLe] 
MUSCL  approach  is  utilized  with  the  Van  Albada  [VanAl]  flux  limiter.  The  MUSCL 
approach  can  be  utilized  with  many  limiters,  as  such,  it  can  be  written  as 

jll  -K)A,-1/2  +  (1 

e«  =  e,*i  -  jfi  *  (1  -’'>4.30} 

The  Van  Albada  limiter  is  obtained  by  setting  k  =  1 

Ql  ~  Qi  ^  yA  +1/2 

Qr  ~  Qi+\  ~  "2  ~  "* 


and 


i-\n 


Vl/2 
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i*Vl 
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t-V2 


where 


QhI  Qi 


The  value  of  €  is  typically  taken  to  be  a  small  number  to  avoid  spurious  zero  divisions. 
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The  above  describes  how  the  inviscid  terms  of  the  RHS  are  calculated.  The  viscous 
terms  are  included  through  central  differencing  of  S^.  This  completely  describes  the 
algorithm  solved  via  the  implicit  system.  Details  of  the  algorithm  can  be  obtained 
through  the  references  or  by  examining  the  input  to  MACSYMA  for  the  symmetry 
checks. 


LHS 


The  LHS  can  be  described  by  discretizing  equation  (1)  using  a  simple  imphcit  scheme 


A-g  _  SFr'  ,  ,  enr' 

At  5r| 


(3) 


Subtracting  the  «-level  steady  terms  from  both  sides  and  dropping  the  viscous  terms 
from  the  LHS  gives 
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The  above  describes  how  the  inviscid  terms  of  the  RHS  are  calculated.  The  viscous 
terms  are  included  through  central  differencing  of  S^.  This  completely  describes  the 
algorithm  solved  via  the  imphcit  system.  Details  of  the  algorithm  can  be  obtained 
through  the  references  or  by  examining  the  input  to  MACSYMA  for  the  symmetiy 
checks. 


LHS 


The  LHS  can  be  described  by  discretizing  equation  (1)  using  a  simple  implicit  scheme 


At  a^  aT|  ac 


=  0 


(3) 


Subtracting  the  n -level  steady  terms  from  both  sides  and  dropping  the  viscous  terms,  S”"'^ 

and  S" ,  from  the  LHS  gives 
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and  linearizing  the  inviscid  fluxes  about  the  level 
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results  in 


^  +  ^(A  ”A"e)  +  — (S-A'Q)  +  =  -RHS  " 

At  dr\  ac 

or,  in  operator  notation 
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ac 


A"2  =  -ms^ 


(8) 


Finally,  multiplying  by  At  gives 
[/  +At 


I  ^A\n  /05\« 


M 


dr\ 


ac 


A"^  =  -Ai:RHS”  (9) 


where  is  obtained  as  described  above.  It  is  important  to  note  that  die  scheme 

is  now  “semi”  imphcit  since  the  viscous  terms  are  lagged.  However,  this  does  not 
affect  the  solution  at  convergence  since  it  is  defined  as  a  zero  RHS  to  machine 
accuracy.  Next  the  LHS  is  differenced  using  the  Steger- Wanning  flux  vector  sphtting 
(FVS).  The  scheme  can  be  written 

(/.  At(v,^*  .Aj^-  *  -A^B-  .VjC’  ^  A^C’lA-g 

=  -A^RHS  ”  (10) 


Where  are  the  generalized  coordinate  Steger-Warming  [StegWar]  FVS 

Jacobians;  A^,  At|  ,  A  C  are  assumed  to  be  unity;  and  A^  and  ,  etc.,  are  the  standard 
two  point  forward  and  backward  difference  operators 

A^(  )  =  (  )i  +  \jjc  “(  \jc 

)m,-^ 

It  should  be  noted  that  the  bracketed  terms  are  acting  as  operators  on  A"  Q  (i.e., 
AfA~A^Q=  [A~A"  -  [A '  A"g] .  Details  of  the  Jacobian  matrices  can  be 

found  in  the  references  or  can  be  inferred  from  the  proof.  The  above  produces  a  block 
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septa-diagonal  system  which  is  not  easy  to  solve.  However,  the  system  can 
approximately  factored  so  that  two  block  tetra-diagonal  systems  result 


(/  +  A  .4 "  +  ^  +  \B  -})  (1 1 ) 

(/+At|\^^"+V^C"+A^C-})A”0  =  -AtRHS” 


be 


This  system  can  then  be  solved  in  two  steps 

+  + =  -AxRHS^  (12a) 

(/+At{\^^'  +V^C"  +A^C"})A”Q  =  Q*  (I2b) 


by  employing  a  block  tri-diagonal  solver  while  sweeping  the  ^-direction  in  (t|,  ^  )  - 
planes.  For  three  dimensional  problems,  forward  sweeps  are  used  for  equation  (12a) 
and  backward  sweeps  for  equation  (12b).  It  is  important  to  note  that  the  above  system 
is  symmetric  in  C  since  both  C  and  C  are  in  the  same  factor.  This  will  become  more 
apparent  in  the  symmetry  proof. 


The  conical  solver  uses  equation  (12)  in  a  somewhat  abbreviated  form.  That  is,  only 
one  plane  of  cells  is  considered,  therefore, 


V 


This  approximation  essentially  assumes  that  A*  (2=0  for  the  off  plane  terms  (although 
they  are  computed  through  the  conical  flow  boundary  condition.)  This  term  can  be 
removed  to  improve  algorithm  efficiency,  but  has  no  detrimental  effect  on  the 
solution.  It  was  retained  in  the  current  solver.  In  any  event,  it  has  no  bearing  on 
algorithm  symmetry  as  will  be  shown  in  the  proof. 

The  conical  LHS  is  as  described  above  and  is  always  solved  on  a  conical  grid. 
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Symmetry  Proof 

The  MACSYMA  symbolic  manipulation  expert  system  was  used  to  determine  the 
symmetry  of  the  above  algorithm.  The  proof  is  first  sketched  in  a  general  sense  to 
provide  an  overview  and  then  the  details  are  presented. 

General  Proof 

As  presented  earher,  the  conical  solver  was  developed  fi’om  a  generalized  coordinate 
three  dimensional  solver  by  simplifying  the  algorithm  when  apphed  on  a  conical  grid. 
If  Cartesian  coordinates  are  used  to  describe  the  physical  space,  the  x-direction 
corresponds  to  the  cone  axis;  the  y-direction  is  vertical,  such  that  incidence  is 
achieved  by  a  pitch  up  in  the  (x,y)  plane;  and  the  z-direction  is  orthogonal  to  the  (x,y) 
plane.  In  the  computational  space  the  ^  -direction  lines  are  rays  firom  the  cone  tip  and 
the(T|,C)  plane  is  perpendicular  to  the  cone  axis,  with  the  T] -direction  normal  to  the 
axis  and  the  C  -direction  azimuthal. 

For  this  geometry  and  md,  symmehy  in  the  crossplane  requires  that  the  mirror  image 
grid  points  and  qj,k)  at  locations  (x,y,z)  and  (x,y,-z),  respectively,  must  have 

1  0  0  0  0 
0  10  0  0 
and  M  =  0  0  1  0  0 

0  0  0  -1  0 
0  0  0  0  1 

Clearly,  M  =  M  . 


where 
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Furthermore,  the  metrics  are  related  in  the  following  manner 


Hence,  the  cell  contravariant  velocities 

U  =  t  w  +  £v+£w 
V  =  “n^W  +  Tl^V  +  T)  W 

X  y  z 

W  = 


12 


are  related  as  per 


r,,,  -  -  - ^Ui 

To  prove  symmetry  we  start  with  the  assumption  that  the  solution  from  the  previous 
iteration  (n-1)  is  symmetric  (for  n=l,  this  imphes  the  initial  condition  is  symmetric), 
hence 


(13) 


Consequently,  we  expect  the  intermediate  “solution”  obtained  by  solving  equation 
(12a)  to  be  symmetric 

(14) 

and  hence,  the  final  solution  is  also  symmetric  because  the  change  obtained  by  solving 
equation  (12b  )  is  symmetric 

(15) 


RHS 


Referring  to  equation  (1)  it  is  easy  to  show  that  a  simple  central  difference  of  the  RHS 
is  symmetric  since 
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This  relationship  can  also  be  demonstrated  for  the  flux  limited  Roe  FDS  discretization, 
but  it  is  not  visually  apparent  fi'om  the  equations.  It  should  be  noted  that  the  azimuthal 
ordering  oddity  significantly  comphcates  the  MACSYMA  comparison  because  it 
requires  the  identification  of  the  corresponding  terms  a  priori,  since  the  performance 
of  MACSYMA  is  related  to  the  complexity  of  the  expressions.  The  MACSYMA 
derived  proof  for  the  RHS  requires  two  steps;  demonstrate  symmetry  for  the  flux 
limited  variables  and  then  symmetry  for  the  remaining  terms.  A  separate  proof  is 
given  for  each  direction  as  this  reduces  the  MACSYMA  workload  to  a  manageable 
size.  These  proofs  are  found  in  the  RHS  Proof  section  following  the  general  proof 

LHS 

The  LHS  ejqjressions  also  contain  the  C  -direction  oddity,  however,  symmetry  is  easily 
demonstrated  because  the  following  relationships  can  be  proved 

(16) 

=  MSV,-  (17) 

C%M  -  (18) 

In  addition,  we  have 

(19) 

due  to  the  azirmithal  direction  ordering  reversal.  These  relations  will  be  proven  in  the 
LHS  Proof  section.  It  should  be  clear  that  symmetry  cannot  be  guaranteed  in  the 
algorithm  unless  and  C~  appear  in  the  same  factor. 


Given  the  above  relationships  consider  equation  (12a)  at  point(/V,A:)  with  the 
operators  expanded 
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ijjc 


[B-Q%,)- RHS”^, 


[B'Q%-u 

(20) 


A  A.  A 

and  at  the  point  (ij,k) 

Q  Vy  +  At[4  'Q  {A  'Q  +[5*2  '\jf-  [8  'Q  'Iv-u- 
+  (21) 


Pre-multiply  equation  (21)  by  M  and  use  equation  (13)  to  obtain 

MQ  AT(p/^"e'];;r  WB*Q'\it-  WB  "elynt 

■  *  -  IMB-Q\^)  =  RHS  (22) 


Using  relations  (16)-(18)  in  equation  (22)  gives 

MQ  +  At  ^ Q ’,.f  -  A +  B*^^MQ'^ 

-B  ^  ‘mi  = 


(23) 


Subtracting  equation  (23)  from  (20)  yields 

v-A/ev^]  Vute'.v-i* 


The  first,  second,  fourth  and  seventh  terms  within  brackets  imply  equation  (14) 
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Similarly,  the  third  term  impHes 


and  the  fifth  and  sixth  terms  imply 

which,  given  equations  (16)-(18),  proves  the  symmetry  of  the  intermediate  step. 


Consider  next  the  discretized  equation  (12b)  at  the  point 
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Pre-multiply  equation  (25)  by  M  and  use  equation  (14)  to  obtain 
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-  pi/C’A"ei.^-.,  T  [MC-A'Gl;;,-.,  -  =  Q'^-, 


(26) 


Using  relations  (16)-(19)  in  equation  (26)  gives 

MA’'e,-;r  ^  ^ 

.  C MA-e,.;*-.  tC'^MA-G,-;*)  = 
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Subtracting  equation  (27)  from  equation  (24)  yields 

(28) 

+ AT(i  ^ 

-C-yJA"2y^  -WA"G,v:j]  "C-y_,„[A"Q„^„  "  MA"2-^_,] 
-C'„,-,[A"G,,,,.,  -WA”Gy,.J  -A^A”e.*^)  =  0 

The  first,  third,  fourth  and  seventh  tenns  within  brackets  imply  equation  (15) 

A”G, =  MA"Qj,.-,- 


Similarly,  the  second  term  implies 

and  the  fifth  and  sixth  terms  imply 

which  is  what  needs  to  be  proved.  Using  logic  similar  to  that  above  this  property  holds 
for  all  (/  J,  k)  in  the  linear  system  and  the  algorithm  is  found  to  be  symmetric. 
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RHS  Proof 

Proof  of  symmetry  for  the  RHS  requires  that  equation  (13)  be  demonstrated.  The  RHS 
discretization  is  detailed  in  the  Numerical  Method  section  as  it  is  applied  to  the  steady 
form  of  equation  (1).  It  is  quite  clear  from  that  discussion  that  the  discretization  is 
rather  comphcated,  therefore,  the  symmetry  of  the  flux  terms  for  each  direction  are 
demonstrated  separately.  The  ^direction  term  is  relatively  straightforward  and 
requires  no  additional  manipulation,  however,  the  ti  and  C-direction  terms  are  much 
more  involved  and  the  MACSYMA  system  was  utilized. 

Direction 

Recall  that  the  ^-direction  flux  term  may  be  written 

where 

The  conical  Navier-Stokes  solver  employs  a  conical  grid  and  the  assumption  that 
properties  are  constant  in  the  ^-direction.  Therefore, 0  and  the  scheme 
reverts  to  simple  central  difference  in  this  direction.  However,  it  is  important  to 
recognize  that  the  flux  contribution  is  not  zero  since  F(Qj^)  *  F{Q^  due  to  the  grid. 
In  addition,  for  the  conical  grid,  equation  (1)  gives 

pU 

puU+lj? 

F.  =  -  pvU 

'  ^  pwU 

{e  ^p)U  . 

^  A  ^ 

In  which  only  w  has  opposite  sign  when  comparing  points  (ijjc)  and  (ijjc) . 
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(29) 


It  is  therefore  easy  to  see  that 


Hence, 


=  M 

'aF,' 

.I”/ 

ilk 

T] -Direction 

Unfortunately,  it  is  not  as  easy  to  demonstrate  symmetry  for  the  t| -direction.  In  this 
case  we  must  show  that 


d7\ 


=  M 


's(GrS,)^ 


ilk 


dr\ 


f 


ilJc 


Recall  that 


\  5ti  j 


ijJc 


^ij+vzk 

At| 


and 


*G<QJ-\B{  (e«  -  e,)]  (30) 


Then  since  Gr.^._  is  defined  in  a  similar  manner  it  is  sufficient  to  show  that 


(31) 
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and  since  central  differences  are  used  for  the  viscous  terms 


(32) 


The  MACSYMA  symbolic  manipulation  system  was  utilized  to  demonstrate  these 
relations.  However,  even  in  this  simplified  form  MACSYMA  requires  further 
simplification.  This  can  be  accomphshed  by  first  demonstrating 


+  V2J( 

Ql 


MQj..  . 


(33) 


and  then  using  these  results  to  prove  equation  (30).  The  proof  is  therefore  separated 
into  a  proof  of  equation  (33),  followed  by  a  proof  of  equation  (31)  and  finally  a  proof 
of  equation  (32).  These  proofe  are  accomplished  respectively  through  the  MACSYMA 
scripts  GfluxLmax,  Gflux2.mac  and  Gflux3.mac  whose  recorded  inputs  and  results 
are  found  in  files  Gfluxl,  Gflux2  and  Gflux3  in  Appendix  A.  Note  that  all  of  the 
MACSYMA  routines  are  included  in  the  appendix  for  clarity.  In  addition,  all 
demonstrate  a  zero  difference  between  the  selected  terms,  therefore,  symmetry  is 
proved  when  a  null  vector  or  matrix  results.  The  routines  themselves  were  written 
based  on  the  actual  code  using  identical  variable  names.  Because  of  this,  a  few 
variable  names  are  used  several  times.  The  code  variables  are  identified  with  the 
notation  discussed  earher  in  the  Numerical  Method  section.  It  should  be  clear  that  the 
proofe  for  each  direction  are  sequential,  therefore,  the  results  from  the  first  in  a  series 
are  used  in  the  following  series. 


Gfluxl  proves  that  given 


^i,y+l/27  Qijk 

ij,k  ~  ~  Qij)c~  Qij-U 

‘IPiji  '  Qiiij.iai  " 
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the  following  holds 


=A^  *'«%>• 


Note  that  the  variables  qn  qm  and  dq  are  then  overwritten  in  the  code  to  form  higher 
order  expressions  forQ^  and  using 

‘IPiJJ,  =  fiv.W  -  \^P>y*  =  QR,j.n> 

-  ^-Sp2;;A  =  MQg.. 

2  ^y  +  1/2^ 

=  Mqp-^.f  (34) 


and 


qm 


ij,k 


Q...  +  —sml...  =  Or 

^yj(  2  ^ij+VlJc 

M(  Q-i  .-c  ■'■  =  MQj 

Mqm.ji^  (35) 


So  that  the  symmetry  relation  for  dq  =  0^-  is  given  by 

=  Mdq..jf  (36) 


Equations  (34)-(36)  are  then  used  in  Gflux2  to  prove  equation  (31).  Gflux3  completes 
the  T|  -direction  demonstrations  by  proving  equation  (32)  using  the  variable  gs  in 
place  of  <S  . 
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C -Direction 


The  last  direction  is  the  most  difficult  because  of  the  azimuthal  ordering.  It  is  easy  to 
see  that 

k-2  **  k +  2 
k-l 
k  **  k 
k+l  -  k-l 
k+2  -  k-2 


Once  again,  the  desired  symmetry  property  is 


dH.]  dH. 

— L  =  M  — ^ 

Si  I  « 


where 


AC 


and  Roe’s  FDS  gives 


-  md  -  n  (e«  -  q,)\. 


Therefore,  the  symmetry  relation  that  must  be  proved  is 
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Once  again,  the  first  proof,  Hfluxl,  shows  that  given 


^ijjc  QijJc  ~ 

^ijjc+3f2  QijM2  QiJ,k+l 
~  \.k-\/2  ~  Qijjc  ~Qij,k-l  ~ 

mj,k  =  Qumi  = 
vriijx  =  Qijjc  =  ^QiJk  = 


-^^iJjc-1 
=  -Mdqmlp^^^ 

-Mdqplrj^-^ 


the  following  holds 

A 


=  -  MA? ;  f  1  „  =  -  Msm2n  i 


Then  since 


mjjt 


mjjc 


1 


Qij,k+^  ^^ij)c+yi 

=  (39) 


similarly 

qm.^  = 


(40) 


So  the  symmetry  relation  for  ~  Qi  is  given  by 

=  ^Pii*  - 

=  ('I') 


Equations  (39)-(41)  are  then  used  in  Hflux2  to  prove  eqnation  (38). 


Equations  (29),  (31),  (32)  and  (38)  collectively  prove  equation  (13)  and  symmetry  is 
demonstrated  from  the  RHS. 


I 
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LHS  Proof 


The  LHS  proof  is  somewhat  simpler  to  describe  because  a  major  portion  of  it  has  been 
presented  in  the  General  Proof  section.  Equations  (16)  -  (18)  must  be  proved  to 
demonstrate  the  symmetry  of  the  LHS.  IN  addition,  the  expressions  to  be  evaluated 
are  considerably  more  complicated  than  their  RHS  counterparts.  Because  of  this  the 
eigenvalues  were  included  in  a  less  general  form  (i.e.,  without  absolute  values)  for 
specific  sub-  and  supersonic  cases. 

Again  the  MACSYMA  symbohc  manipulation  routine  was  used  and  the  resulting 
scripts  are  included  in  Appendix  A.  The  files  have  the  following  naming  convention 


'  '-at 

-  apsup 

-  apsub 

-  supersonic 

-  subsonic 

-  amsup 

-  amsub 

-  supersonic 

-  subsonic 

yjc 

- a.- 

-  bpsup 

-  bpsub 

-  supersonic 

-  subsonic 

-  bmsup 

-  bmsub 

-  supersonic 

-  subsonic 

-  ccsupl 

-  ccsubl 

-  supersonic 

-  subsonic 

Note  that  only  one  set  of  identities  must  be  shown  for  the  C  -direction  since  the  inverse 
is  included  in  those  presented.  It  should  be  recognized  that  sub-  and  supersonic  flows 
can  occur  in  both  the  plus  and  minus  coordinate  directions.  These  cases  were  tested 
and  identical  results  were  obtained.  They  were  deleted  fi’om  the  current  report  to  save 
space.  The  interested  reader  can  verify  the  proof  by  simple  alterations  to  the 
MACSYMA  scripts  included  in  the  appendix. 


Given  tiie  above  proofs  the  symmetry  properties  of  the  LHS  are  established  and  hence 
the  algorithm  is  shown  to  be  symmetric  for  conical  grids. 
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Summary 


The  symmetry  of  a  conical  Navier-Stokes  equation  solver  was  proved  through  the  use 
of  analytical  and  symbohc  techniques.  The  MACSYMA  symbohc  mampulation 
software  was  utilized.  MACSYMA  routines  are  included  to  allow  the  interested  reader 

to  verify  the  results. 
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Appendix  A 


•  GFLUXl 

•  GFLUX2 

•  GFLUX3 

•  HFLUXl 

•  HFLUX2 

•  APSUP 

•  APSUB 

•  AMSUP 
o  AMSUB 

•  BPSUP 

•  BPSUB 

•  BMSUP 
o  BMSUB 

•  CCSUPl 

•  CCSUBl 
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GFLUXl 


(C3)  diff:matrix([0] , [0] , [0] , [0],[0])$ 

(C4)  g:matrix( [0] ,[0],[0],[0],[0])$ 

(C5)  gijk:iiiatrix(  [0]  ,[0],[0],[0],[0])$ 

(C6)  ghatijk: matrix ( [0] , [0] , [0] , [0] ,  [0] )  $ 

(C7)  sp:matrix( [0] ,[0],[0],[0],[0],[0])$ 

(C8)  null:matrix( [0] ,[0],[0],[0],[0],[0])$ 

(C9)  xy2:matrix( [0] ,[03,[0],[0],[03,[0])$ 

(CIO)  x2y: matrix ([03 , [03 , [03 , [03 , [03 , [03 ) $ 

(Cll)  xpy:matrix( [03 ,[03,[03,[03,[03,[03)$ 

(C12)  spl:matrix( [03 ,[03,[03,[03,[03,[03)$ 

(C13)  sp2:matrix( [03 ,[03,[03,[03,[03,[03)$ 

(C14)  sml:matrix( [03,[03,[03,[03,[03,[03)$ 

(C15)  sm2:matrix( [03 ,[03,[03,[03,[03,[03)$ 

(C16)  ax:etx$ 

(C17)  ay:ety$ 

(C18)  az:etz$ 

(C19)  dq:matrix(  [rpl-r3 ,  [rupl-ru3 ,  [rvpl-rv3 ,  [rwpl~rw3 ,  [epl-e3 ,  [ppl 
-P])$ 

(C20)  dqml:matrix(  [r“rml3 ,  [ru-ruml3  /  [rv-3rvml3 ,  [rw-rwml3  /  [e-eml3 ,  [p 
-pml3 ) $ 

(C21)  dqpl:matrix(  [rp2-rpl3 ,  [rup2-rupl3 ,  [rvp2-rvpl3 ,  [rwp2-rwpl3 ,  [e 
p2-epl3 , [pp2-ppl3)$ 

(C22)  qp:matrix( [rpl3 , [rupl3 , [rvpl3 , [rwpl3 , [epl3 , [ppl3 ) $ 

(C23)  qm:matrix( [r3 , [ru3 , [rv3 , [rw3 , [e3 , [p3 )$ 

(C24)  for  i:  1  thru  6  do 
xy2[i3:  dqml[i3 * (dq[i3 *dq[i3+eps)  $ 

(C25)  for  i:l  thru  6  do 

x2y[i3 :  dq[i3 * (dqml[i3 *dqml[i3+eps)  $ 

(C26)  for  i:l  thru  6  do 

xpy[i3:  dqml[i3*dqml[i3  +  dq[i3*dq[i3$ 

(C27)  for  i:l  thru  6  do 

sml[i3 :  (x2y[i3+xy2  [i3 )  /  (xpy  [i3+2*eps)  $ 

(C28)  for  i:  1  thru  6  do 
xy2[i3:  dqpl[i3*(dq[i3*dq[i3+eps)$ 

(C29)  for  i:l  thru  6  do 

x2y[i3 ;  dq[i3*(dqpl[i3*dqpl[i3+eps)$ 

(C30)  for  i:l  thru  6  do 

xpy[i3 :  dqpl[i3 *dqpl[i3  +  dq[i3*dq[i3$ 

(C31)  for  i:l  thru  6  do 

spl[i3 : (x2y[i3+xy2[i3)/ (xpy[i3+2*eps)$ 

(C32)  m: matrix ( [1,0, 0,0, 0,03, [0,1, 0,0, 0,03, [0,0, 1,0, 0,0), [0,0, 0,-1 

,0,03, [0,0,0,0,1,03 
, [0,0,0,0,0,13)$ 

(C33)  ax:etx$ 

(C34)  ay;ety$ 

(C35)  az:-etz$ 

(C36)  dq:m.dq$ 

(C37)  dqml;m.dqml$ 

(C38)  dqpl;m.dqpl$ 

(C39)  qp;m.qp$ 

(C40)  qm:m.qm$ 


Page  1 


GFLUXl 


(C41)  for  i:  1  thru  6  do 
xy2[i]:  dqml[i]*(dq[i]*dq[i]+eps)$ 

(C42)  for  i;l  thru  6  do 

x2y[i] :  dq[i]*(dqml[i]*dqinl[i]+eps)$ 

(C43)  for  i:l  thru  6  do 

xpy[i]:  dqml[i] *dqml[i]  +  dq[i]*dq[i]$ 

(C44)  for  i:l  thru  6  do 

sm2[i] ;  (x2y[i]+xy2[i])/(xpy[i]+2*eps)$ 

(C45)  for  i:  1  thru  6  do 

xy2[i];  dqpl[i]*(dq[i]*dq[i]+eps)  $ 

(C46)  for  i:l  thru  6  do 

x2y[i] :  dq[i]*(dqpl[i]*dqpl[i]+eps)$ 

(C47)  for  i:l  thru  6  do 

xpy[i]:  dqpl[i]*dqpl[i]  +  dq[i]*dq[i]$ 

(C48)  for  i:l  thru  6  do 

sp2[i] : (x2y[i]+xy2[i])/(xpy[i]+2*eps)$ 

(C49)  diffl:spl“iii.sp2$ 

(C50)  diff l:ratexpand(diff 1)  ; 

[  0  ] 

[  ] 
[  0  ] 

[  ] 
[  0  ] 

(D50)  [  ] 

[  0  ] 

[  ] 

t  0  ] 

[  ] 
[  0  ] 

(C51)  diff2 : sml-m. sm2$ 

(C52)  diff2:ratexpand(diff2) ; 

[  0  ] 

[  ] 
[  0  ] 

[  ] 
[  0  ] 

(D52)  [  ] 

[  0  ] 

[  ] 
[  0  ] 

[  ] 
[  0  ] 

(C53)  closef ile(gf luxl) $ 
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(C3)  diff : matrix ( [0] ,[0],[0],[0],[0])$ 

(C4)  g:matrix( [0] ,[0],[0],[0],[0])$ 

(C5)  gijk: matrix ( [0],[0],[0],[0],[0])$ 

(C6)  ghatijk;matrix( [0] , [0] , [0] , [0] ,  [0] ) $ 

(C7)  sp:matrix([0], [0], [0],[0],[0],[0])$ 

(C8)  dq:matrix( [0] ,[0],[0],[0],[0])$ 

(C9)  null:matrix( [0] , [0] , [0] , [0] , [0] ,  [0] ) $ 

(CIO)  xy2;matrix( [0] ,[0],[0],[0],[0],[0])$ 

(Cll)  x2y: matrix ( C0],[0],[0],[0],[0],[0])$ 

(C12)  xpy:matrix( [0] , [0] , [0] , [0] , [0] ,  [0] ) $ 

(C13)  spl:matrix( [0] ,[0],[0],[03,[0])$ 

(C14)  sp2:matrix( [0] ,[0],[0],[0],[0])$ 

(C15)  sml: matrix ( [0],[0],[0],[0],[0])$ 

(C16)  sm2 : matrix ( [0],[0],[0],[0],[0])$ 

(C17)  ax:etx$ 

(C18)  ay;ety$ 

(C19)  az:etz$ 

(C20)  axt:ax/sada$ 

(C21)  ayt:ay/sada$ 

(C22)  azt:az/sada$ 

(C23)  dq:matrix(  [dql] ,  [dq2] ,  [dq3] ,  [dq4] ,  [dqS] )  $ 

(C24)  qp:matrix(  [qpl]  ,  [qp2] ,  [qp3] ,  [qp4]  ,  [qp5] ,  [qp6] )  $ 

(C25)  qm:matrix(  [qml] ,  [qm23 ,  [qm3] ,  [qm4] ,  [qm5] ,  [qm6] )  $ 

(C26)  axt:ax/sada$ 

(C27)  ayt:ay/sada$ 

(C28)  azt:az/sada$ 

(C29)  el:tt*sada$ 

(C30)  e4:el+csad$ 

(C31)  e5:el-csad$ 

(C32)  bel: matrix ( [0 . 5* (el+abs (el) )  ,0,0, 0,0] , 

[0,0.5*(el+abs(el) ) ,0,0,0] , 

[0,0, 0.5* (el+abs (el)) ,0,0] , 

[0,0,0,0.5*(e4+abs(e4) ) ,0]  , 

[0, 0, 0, 0, 0.5* (e5+abs(e5) ) ] ) $ 

(C33)  be2:matrix([0.5*(el-abs(el))  ,0,0,0,0] , 

[0,0.5*(el-abs(el) ) ,0,0,0] , 

[0,0,0.5*(el-abs(el) ) ,0,0] , 

[0,0,0,0.5*(e4-abs(e4) ) ,0] , 

[0,0,0,0,0.5*(e5“abs(e5) ) ])$ 

(C34)  a:ql/ (sqrt (2) *c) $ 

(C35)  cl;0.5*rqrq$ 

(C36)  c2:c*c/i^l$ 

(C37)  br:matrix( [axt,ayt,azt,a,a] , 

[q2*axt,q2*ayt-ql*azt,q2*azt+ql*ayt,a*(q2+c*axt)  ,a*  (q2-c*axt)  ] , 
[q3*axt+ql*azt,q3*ayt,q3*azt-ql*axt,a*  (q3+c*ayt)  ,a*  (q3-c*ayt)  ] , 
[q4*axt-ql*ayt,q4*ayt+ql*axt,q4*azt,a*  (q4+c*azt)  ,a*  (q4-c*azt)  ] , 
[cl*axt+ql*(q3*azt-q4*ayt)  ,  cl*ayt+ql*  (q4*axt-q2*azt) , 
cl*azt+ql* (q2*ayt-q3*axt) , a* (cl+c2+c*tt)  ,a* (cl+c2-c*tt)  ])$ 

(C38)  phi:0.5*gml*rqrq$ 

(C39)  c2:c*c$ 

(C40)  b;l/ (sqrt(2) *rc) $ 
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(C41)  cl:l-phi/c2$ 

(C42)  c3:gml/c2$ 

( C4 3 )  bl : matrix  ( [ axt *cl+q6 *  ( q4 *ayt-q3 *azt ) ,  axt*q2 *c3 ,  axt*q3 *c3+azt 
*q6, 

axt*q4  *c3 -ayt*q6 , -axt*c3 ] , 

[ayt*cl+q6* (q2*azt-q4*axt)  ,ayt*q2*c3-azt*q6,ayt*q3*c3, 
ayt *q4  *c3  +axt *q6 , -ayt*c3 ] , 

[azt*cl+q6*  (q3*axt-q2*ayt)  , azt*q2*c3+ayt*q6 , azt*q3*c3-axt*q6 , 
azt*q4  *c3 , -azt*c3 ] , 

[b*(phi~c*tt)  ,b*(c*axt-q2*gml)  ,b*  (c*ayt-q3*gml)  ,b*  (c*azt-q4*gml)  , 
b*gml]  , 

[b*  (phi+c*tt)  ,-b*  (c*axt+q2*gml)  , -b*  (c*ayi:+q3*gml)  ,-b*  (c*azt+q4*gml 

), 

b*gml] ) $ 

(C44)  sp:bl.dq$ 

(C45)  sp2:bel.sp$ 

(C46)  sp:bl.dq$ 

(C47)  sm2:be2.sp$ 

(C48)  g:br.sm2-br.sp2$ 

(C49)  tl:  (qm[2]*ax+qm[3]*ay+qm[4]*az) /qm[l]$ 

(C50)  g[l] :qm[l] *tl+g[l] $ 

(C51)  g[2] :qm[2] *tl+ax*qm[6]+g[2]  $ 

(C52)  g[3] :qm[3]*tl+ay*qm[6]+g[3]$ 

(C53)  g[4] :qm[4] *tl+az*qm[6]+g[4]  $ 

(C54)  g[5] ; (qm[5]+qm[6] ) *tl+g[5]$ 

(C55)  tl: (qp[2]*ax+qp[3]*ay+qp[4]*az)  /qp[l]$ 

(C56)  gijk[l] :0.5*(qp[l]*tl+g[l])  $ 

(C57)  gijk[2] :0.5*(qp[2]*tl+ax*qp[6]+g[2])$ 

(C58)  gijk[33 :0.5*(qp[3]*tl+ay*qp[6]+g[3])$ 

(C59)  gijk[4] : 0. 5* (qp[4 ] *tl+az*qp [6] +g[4 ] ) $ 

(C60)  gijk[5] : 0. 5* ( (qp[5]+qp[6] ) *tl+g[5] ) $ 

(C61)  m;matrix( [1,0,0,0,0],[0,1,0,0,0],[0,0,1,0,03,[0,0,0,-1,0],[0 
,0,0,0,!])$ 

(C62)  m2 ; matrix ( [1, 0,0, 0,0,0], [0,1, 0,0, 0,0], [0,0, 1,0, 0,0], [0,0,0, - 
1,0,0], 

[0,0,0,0,1,0] , [0,0,0,0,0,1])$ 

(C63)  ax:etx$ 

(C64)  ay:ety$ 

(C65)  az:-etz$ 

(C66)  axt:ax/sada$ 

(C67)  ayt:ay/sada$ 

(C68)  azt:az/sada$ 

(C69)  rw:-rw$ 

(C70)  rwpl:-rwpl$ 

(C71)  rwp2:-rwp2$ 

(C72)  rwml:-rwml$ 

(C73)  dq:m.dq$ 

(C74)  qp:m2.qp$ 

(C75)  qm:m2.qm$ 

(C76)  q4:-q4$ 

(C77)  el;tt*sada$ 
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(C78)  e4:el+csad$ 

(C79)  e5:el-csad$ 

(C80)  bel: matrix ( [0.5*(el+abs{el) )  ,0,0, 0,0] , 

[0,0.5*(el+abs(el) ) ,0,0,0] , 

[0,0,0.5*(el+abs(el) )  ,0,0]  , 

[0,0,0,0.5*(e4+abs(e4) )  ,0]  , 

[0,0, 0,0, 0.5* (e5+abs(e5) ) ] )  $ 

(C81)  be2 :matrix( [0.5* (el-abs (el)  )  ,  0, 0, 0 , 0] , 

[0,0.5*(el-abs(el) ) ,0,0,0] , 

[0,0, 0.5* (el-abs (el) ) ,0,0] , 

[0,0,0,0.5*(e4-abs(e4) )  ,0] , 

[0,0, 0, 0, 0. 5* (e5-abs(e5) ) ] ) $ 

(C82)  a:ql/ (sqrt (2) *c) $ 

(C83)  cl:0.5*rqrq$ 

(C84)  c2;c*c/gml$ 

(C85)  br:matrix( [axt,ayt,azt,a,a] , 

[q2*axt,q2*ayt-ql*azt,q2*azt+ql*ayt,a*  (q2+c*axt)  ,a*  (q2-c*axt)  ] , 
[q3*axt+ql*azt,q3*ayt,q3*azt-ql*axt,a*(q3+c*ayt)  ,a*  (q3-c*ayt)  ] , 
[q4*axt-ql*ayt,q4*ayt+ql*axt,q4*azt,a*  (q4+c*azt)  ,a*(q4-c*azt)  ] , 
[cl*axt+ql*  (q3*azt-q4*ayt)  ,  cl*ayt+ql*  (q4*axt-q2*azt)  , 
cl*azt+ql*  (q2*ayt-q3*axt)  ,  a*  (cl+c2+c*tt)  ,  a*  (cl+c2-c*tt)  ] )  $ 

(C86)  phi:0.5*gml*rqrq$ 

(C87)  c2:c*c$ 

(C88)  b; 1/ (sqrt (2) *rc) $ 

(C89)  cl:l-phi/c2$ 

(C90)  c3:gml/c2$ 

(C91)  bl:matrix([axt*cl+q6*(q4*ayt-q3*azt)  ,axt*q2*c3,axt*q3*c3+azt 
*q6, 

axt *q4  *c3 -ayt*q6 , -axt*c3 ] , 

[ayt*cl+q6*  (q2*azt-q4*axt)  ,  ayt*q2*c3-azt*q6 ,  ayt*q3*c3 , 
ayt*q4*c3+axt*q6,-ayt*c3] , 

[azt*cl+q6*  (q3*axt-q2*ayt)  ,  azt*q2*c3+ayt*q6 ,  azt*q3*c3-axt*q6 , 
azt*q4*c3 , -azt*c3 ] , 

[b*(phi-c*tt)  ,b*(c*axt-q2*gml)  ,b*  (c*ayt-q3*gml)  ,b*  (c*azt-q4*gml)  , 
b*gml] , 

[b*(phi+c*tt)  ,-b*(c*axt+q2*gml)  ,-b*  (c*ayt+q3*gml)  , -b*  (c*azt+q4*gml 

), 

b*gml] ) $ 

(C92)  sp:bl.dq$ 

(C93)  sp2:bel.sp$ 

(C94)  sp:bl.dq$ 

(C95)  sm2;be2.sp$ 

(C96)  g;br . sm2-br . sp2$ 

(C97)  tl:  (qm[2]*ax+qm[3]*ay+qm[4]*az)  /qm[l]$ 

(C98)  g[l] :qm[l]*tl+g[l]$ 

(C99)  g[2] :qm[2]*tl+ax*qm[6]+g[2]$ 

(ClOO)  g[3] :qm[3]*tl+ay*qm[6]+g[3]$ 

(ClOl)  g[4] :qm[4]*tl+az*qm[6]+g[4]$ 

(C102)  g[5] : (qm[5]+qm[6])*tl+g[5]$ 

(C103)  tl: (qp[2]*ax+qp[3]*ay+qp[4]*az)  /qp[l]$ 

(C104)  ghatijk[l] :0.5*(qp[l]*tl+g[l] )  $ 
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(C105)  ghatijk[2] :0.5*(qp[2]*tl+ax*qp[6]+g[2])$ 
(C106)  ghatijk[3] :0.5*(qp[3]*tl+ay*qp[6]+g[3])$ 
(C107)  ghatijk[4] :0.5*(qp[4]*tl+az*qp[6]+g[4])$ 
(C108)  ghatijktS] :0.5*( (qp[5]+qp[6])*tl+g[5])$ 
(C109)  dif f :gijk-ia.ghatijk$ 

(Clio)  diff ;ratexpand(diff ) ; 

[  0  ] 

[  ] 

C  0  ] 

C  ] 

(DllO)  [  0  ] 

[  ] 

[  0  ] 

[  ] 

[  0  ] 

(Clll)  closef ile(gf lux2) $ 
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(C3)  diff: matrix ( [0],[0],[0],[0],[0])$ 

(C4)  gsijk: matrix ( [0],[0],[0],[0],[03)$ 

(C5)  gshijk:matrix( [0] ,[0],[0],[0],[0])$ 

(C6)  ax:etx$ 

(C7)  ay:ety$ 

(C8)  az;etz$ 

(C9)  axt:ax/sada$ 

(CIO)  ayt:ay/sada$ 

(Cll)  azt;az/sada$ 

(C12)  ra: .5*(r+rpl) $ 

(C13)  pa: .5*(p+ppl)$ 

(C14)  emu: (gam*abs (pa/ra) ) **0.666$ 

(C15)  cons: fsmach/rel$ 

(Cl 6)  rpr:pr*emu$ 

(C17)  vav:0.5*(volpl+vol) $ 

(C18)  u2:rupl/rpl-ru/r$ 

(C19)  v2:rvpl/rpl-rv/r$ 

(C20)  w2 :rwpl/rpl-rw/r$ 

(C21)  t2:gam*(ppl/rpl-p/r)  $ 

( C2  2 )  sigx : 0.667 *emu*cons* ( 2 . *u2  *ax-v2  *ay-w2  *az ) / vav$ 

(C23)  sigy : 0 . 667*emu*cons* (2 . *v2*ay-u2*ax-w2*az) /vav$ 

(  C2  4 )  sigz : 0 . 667  *emu*cons* ( 2 . *w2  *az-u2  *ax-v2  *ay ) / vav$ 

(C25)  txy:emu*cons* (u2*ay+v2*ax) /vav$ 

(C26)  txz : emu*cons* (u2*az+w2*ax) /vav$ 

(C27)  tyz : emu*cons* (v2*az+w2*ay) /vav$ 

( C2  8 )  qx : -cons*rpr *rgml*t2  *ax/ vav$ 

(C29)  qy: -cons*rpr*rgml*t2*ay/vav$ 

(C30)  qz:-cons*rpr*rgml*t2*az/vav$ 

(C31)  gsijk[l, 1] : 0. 0$ 

(C32)  gsijk[2, 1] :ax*sigx+ay*txy+az*txz$ 

(C33)  gsijk[3,l] :ax*txy+ay*sigy+az*tyz$ 

(C34)  gsijk[4,l] : ax*txz+ay*tyz+az*sigz$ 

(C35)  ua:0.5*(rupl/rpl+ru/r)$ 

(C36)  va:0.5*(rvpl/rpl+rv/r)$ 

(C37)  wa:0.5*(rwpl/rpl+rw/r) $ 

(C38)  gsijk [5, 1]  :ua*gsijk[2 , l]+va*gsijk[3 , l]+wa*gsijk[4, l]-qx*ax“q 
y*ay-qz*az$ 

(C39)  m:matrix( [1,0,0,0,0],[0,1,0,0,0],[0,0,1,0,0],[0,0,0,-1,0],[0 

,0,0,0,!])$ 

(C40)  ax:etx$ 

(C41)  ay:ety$ 

(C42)  az:-etz$ 

(C43)  axt:ax/sada$ 

(C44)  ayt:ay/sada$ 

(C45)  azt:az/sada$ 

(C46)  rw:-rw$ 

(C47)  rwpl:-rwpl$ 

(C48)  rwml:-rwml$ 

(C49)  ra: .5* (r+rpl) $ 

(C50)  pa: .5*(p+ppl) $ 

(C51)  emu: (gam*abs (pa/ra) ) **0 . 666$ 
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(C52)  cons: fsinach/rel$ 

(C53)  rpr:pr*emu$ 

(C54)  vav: 0. 5* (volpl+vol) $ 

(C55)  u2 :rupl/rpl-ru/r$ 

(C56)  v2:rvpl/rpl-rv/r$ 

(C57)  w2 :rwpl/rpl-rw/r$ 

(C58)  t2:gam* (ppl/rpl-p/r) $ 

(C59)  sigx: 0. 667*emu*cons* (2 . *u2*ax-v2*ay-w2*a2) /vav$ 

(C60)  sigy:0.667*emu*cons*(2.*v2*ay-u2*ax-w2*az) /vav$ 

(C61)  sigz : 0 . 667*emu*cons*  (2 .  *w2*az--u2*ax-v2*ay)  /vav$ 

(C62)  txy : emu*cons* (u2*ay+v2*ax) /vav$ 

(C63)  txz :  eiiiu*cons*  (u2*az+w2*ax)  /vav$ 

(C64)  tyz : emu*cons* (v2*az+w2*ay) /vav$ 

(C65)  qx: -cons*rpr*rgml*t2*ax/vav$ 

(C66)  qy;-cons*rpr*rgml*t2*ay/vav$ 

(C67)  qz :  -cons*rpr*rgial*t2*az/vav$ 

(C68)  gshijk[l,l] :0.0$ 

(C69)  gshijk[2,l]  :ax*sigx+ay*txy+az*txz$ 

(C70)  gshijk[3,l] : ax*txy+ay*sigy+az*tyz$ 

(C71)  gshijk[4,l] :ax*txz+ay*tyz+az*sigz$ 

(C72)  ua:0.5*(rupl/rpl+ru/r) $ 

(C73)  va:0.5*(rvpl/rpl+rv/r) $ 

(C74)  wa: 0. 5* (rwpl/rpl+rw/r) $ 

(C75 )  gshi jk [ 5,1]: ua*gshi jk [2,1]  +va*gshi jk [ 3 , 1]  +wa*gshi jk [4,1]  -qx* 
ax-qy*ay-qz*az$ 

(C76)  diff ;gsijk-m.gshijk$ 

(C77)  dif f :ratexpand(diff ) ; 

[  0  ] 

[  ] 

[  0  ] 

[  ] 

(D77)  [  0  ] 

[  ] 

[  0  ] 

[  ] 

[  0  ] 

(C78)  closefile(gf lux3) $ 

i 
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(C3)  diff : matrix ( [0],[0],[0],[0],[0])$ 

(C4)  h: matrix ( [0],[0],[0],[0],[0])$ 

(C5)  hijk;matrix( [0] , [0] , [0] , [0] , [0] )  $ 

(C6)  hhatijk: matrix ( [0],[0],[0],[0],[0])$ 

(C7)  null:matrix( [0],[0],[0],[0],[0],[0])$ 

(C8)  xY2:matrix( [0],[0],[0],[0],[0],[0])$ 

(C9)  x2y:matrix( [0] ,[0],[0],[0],[0],[0])$ 

(CIO)  xpy:matrixUo] ,  [0] ,  [0] ,  [0] ,  [0] ,  [0] )  $ 

(Cll)  spl:matrix( [0],[0],[0],[0],[0],[0])$ 

(C12)  sp2 :matrix( [0],[0],[0],[0],[0],[0])$ 

(C13)  sml: matrix ( [0],[0],[0],[0],[0],[0])$ 

( C14 )  sm2 : matrix ([0],[0],[0],[0],[0],[0])$ 

(C15)  ax:ztx$ 

(C16)  ay:zty$ 

(C17)  az:ztz$  ,  ,  ,  ,  r  1 

(C18)  dq : matrix ( [rpl-r] ,  [rupl-ru] ,  [rvpl-rv] ,  [rwpl-rw] ,  [epl-e] ,  [ppl 

1  )  $ 

(C19)  dqml:matrix(  [r-rml] ,  [ru-ruml] ,  [rv-rvml] ,  [rw-rwml] ,  [e-eml] ,  [p 

“■pull  1  }  $ 

(C20)  dqpl:matrix(  [rp2-rpl] ,  [rup2-rupl] ,  [rvp2-rvpl] ,  [rwp2-rwpl] ,  [e 
p2-epl] , [pp2-ppl] ) $ 

(C21)  qp : matrix ( [rpl] ,  [rupl] ,  [rvpl] ,  [rwpl] ,  [epl] ,  [ppl] )  5 
(C22)  qm:matrix(  [r] ,  [ru] ,  [rv] ,  [rw] ,  [e] ,  [p] )  $ 

(C23)  for  i:  1  thru  6  do 

xy2[i]:  dqml[i]*(dq[i]*dq[i]+eps)$ 

(C24)  for  i:l  thru  6  do 

x2y[i] :  dq[i]*(dqml[i]*dqml[i]+eps)$ 

(C25)  for  i:l  thru  6  do 

xpy[i] :  dqml[i] *dqml[i]  +  dq[i]*dq[i]$ 

(C26)  for  i:l  thru  6  do 

sml[i] :  (x2y[i]+xy2[i])/(xpy[i]+2*eps)$ 

(C27)  for  i:  1  thru  6  do 
xy2[i]:  dqpl[i]*(dq[i]*dq[i]+eps)$ 

(C28)  for  i;l  thru  6  do 

x2y[i] :  dq[i]*(dqpl[i]*dqpl[i]+eps)  $ 

(C29)  for  i:l  thru  6  do 

xpy[i]:  dqplCi]*dqpl[i]  +  dq[i]*dq[i]$ 

(C30)  for  i:l  thru  6  do 

spl[i] :  (x2y[i]+xy2[i] )  /  (xpy[i]+2*eps)  $ 

(C31)  m:matrix( [1, 0, 0, 0, 0, 0] ,[0,1, 0,0, 0,0], [0,0, 1,0, 0,0], [0,0, 0,-1 
,0,0], [0,0, 0,0, 1,0] 

, [0,0, 0,0, 0,1])$ 

(C32)  ax;-ztx$ 

(C33)  ay;-zty$ 

(C34)  az:ztz$ 

(C35)  dqo:dq$ 

(C36)  dqmlo:dqml$ 

(C37)  dqplo:dqpl$ 

(C38)  qpo:qp$ 

(C39)  qmo:qm$ 

(C40)  dq:-M.dqo$ 
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(C41)  dqml:-'M.dqplo$ 

(C42)  dqpl:-M.dqmlo$ 

(C43)  qp:M.qm$ 

(C44)  qm:M.qp$ 

(C45)  for  i:  1  thru  6  do 
xy2Ci]:  dqml[i]*(dq[i]*dq[i]+eps)$ 

(C46)  for  i:l  thru  6  do 

x2y[i] :  dq[i]*(dqinl[i]*dqml[i]+eps)$ 

(C47)  for  i:l  thru  6  do 

xpy[i];  dqml[i]*dqml[i]  +  dq[i]*dq[i]$ 

(C48)  for  i:l  thru  6  do 

sm2[i] :  (x2y[i]+xy2[i])/(xpy[i]+2*eps)$ 

(C49)  for  i:  1  thru  6  do 

xy2[i]:  dqpl[i]*(dq[i]*dq[i]+eps)$ 

(C50)  for  i:l  thru  6  do 

x2y[i] :  dq[i]*(dqpl[i]*dqpl[i]+eps)$ 

(C51)  for  i:l  thru  6  do 

xpy[i]:  dqpl[i]*dqpl[i]  +  dq[i]*dq[i]$ 

(C52)  for  i;l  thru  6  do 

sp2[i] : (x2y[i]+xy2[i])/ (xpy[i]+2*eps)$ 

(C53)  diffl;spl+m.sm2$ 

(C54)  diffl:ratexpand(diffl) ; 

[  0  ] 

[  ] 

C  0  ] 

C  ] 
[  0  ] 

(D54)  [  3 

[  0  ] 

[  ] 
[  0  ] 

[  ] 
[  0  ] 

(C55)  diff2:sml+m.sp2$ 

(C56)  diff2;ratexpand(diff2) ; 

[  0  ] 

[  ] 

[  0  ] 

[  ] 

[  0  ] 

(D56)  [  3 

[  0  ] 

[  3 

[  0  ] 

[  3 

[  0  ] 

(C57 )  closef ile (hf luxl) $ 
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(C3)  diff : matrix ( [0] ,[0],[0],[0],[0])$ 

(C4)  h: matrix ( [0],[0],[0],[0],[0])$ 

(C5)  hijk:matrix( [0] ,[0],[0],[0],[0])$ 

(C6)  hhatijk:matrix( [0] , [0] , [0] , [0] ,  [0] )  $ 

(C7)  sp: matrix ( [0],[0],[0],[0],[0],[0])$ 

(C8)  dq;matrix( [0] , [0] , [0] , [0] , [0] ) $ 

(C9)  null : matrix ( [0] ,[0],[0],[0],[0],[0])$ 

( CIO )  xy2 : matrix ([0],[0],[0],[0],[0],[0])$ 

(Cll)  x2y:matrix( [0] , [0] , [0] , [0] , [0] ,  [0] )  $ 

(C12)  xpy: matrix ( [0],[0],[0],[0],[0],[0])$ 

(C13)  spl; matrix ( [0],[0],[0],[0],[0])$ 

(C14)  sp2: matrix ( [0],[0],[0],[0],[0])$ 

(C15)  sml;matrix( [0] , [0] , [0] , [0] , [0] )  $ 

(C16)  sm2 : matrix ( [0],[0],[0],[0],[0])$ 

(C17)  ax:ztx$ 

(C18)  ay:zty$ 

(C19)  az:ztz$ 

(C20)  axt:ax/sada$ 

(C21)  ayt:ay/sada$ 

(C22)  azt;az/sada$ 

(C23)  dq;matrix( [dql] , [dq2] , [dq3] , [dq4] , [dq5] ) $ 

(C24)  qp : matrix ( [qpl] , [qp2] , [qp3] , [qp4] , [qp5] , [qp6])5 
(C25)  qm:matrix([qml] , [qm2] ,  [qm3] , [qm4] , [qmS] , [qm6])$ 

(C26)  el:tt*sada$ 

(C27)  e4:el+csad$ 

(C28)  e5:el-csad$ 

(C29)  bel:matrix( [0. 5* (el+abs(el) )  ,0,0, 0,0] , 

[0,0.5*(el+abs(el) ) ,0,0,0] , 

[0,0,0,5*(el+abs(el) ) /Of  0] / 

[0,0,0,0.5*(e4+abs(e4) ) ,0] , 

[0,0,0,0,0.5*(e5+abs(e5) ) ])$ 

(C30)  be2:matrix( [0. 5* (el-abs (el) )  ,0, 0, 0, 0] , 

[0,0.5*(el-abs(el) ) ,0,0,0] , 

[0,0, 0.5* (el-abs (el) ) ,0,0] , 

[0,0,0,0.5*(e4-abs(e4) ) ,0] , 

[0,0,0,0,0.5*(e5-abs(e5) ) ]) $ 

(C31)  a;ql/(sqrt(2)*c)$ 

(C32)  cl:0.5*rqrq$ 

(C33)  c2:c*c/gml$ 

(C34)  br:matrix([axt,ayt,azt,a,a], 

[q2*axt,q2*ayt-ql*azt,q2*azt+ql*ayt,a* (q2+c*axt)  ,a*(q2-c  axt)  ] , 
[q3*axt+ql*azt,q3*ayt,q3*azt-ql*axt,a*(q3+c*ayt)  ,a*  (q3-c*ayt)  ] , 
[q4*axt-ql*ayt,q4*ayt+ql*axt,q4*azt,a*  (q4+c*azt)  ,a*  (q4-c*azt)  ] , 

[cl*axt+ql*  (q3*azt-q4*ayt)  ,  cl*ayt+ql*  (q4*axt-q2*azt)  , 
cl*azt+ql*  (q2*ayt-q3*axt)  ,a*  (cl+c2+c*tt)  ,a*  (cl+c2-c*tt)  ])5 
(C35)  phi:0.5*gml*rqrq$ 

(C36)  c2:c*c$ 

(C37)  b:l/(sqrt(2)*rc)$ 

(C38)  cl:l-phi/c2$ 

(C39)  c3:gml/c2$ 

( C4  0 )  bl :  matrix  ( [  axt *cl+q6*  (q4  *ayt-q3  *azt ) ,  axt *q2 *c3 ,  axt*q3  *c3+azt 
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*q6, 

axt*q4*c3-ayt*q6,-axt*c3] , 

[ayt*cl+q6*(q2*azt-q4*axt) , ayt*q2*c3-azt*q6 , ayt*q3*c3 , 
ayt*q4*c3+axt*q6,-ayt*c3] , 

[azt*cl+q6* (q3*axt-q2*ayt) , azt*q2*c3+ayt*q6, azt*q3*c3-axt*q6, 


azt*q4*c3,-azt*c3] ,  .  ^  ^  4.  44.  .x 

[b*  (phi-c*tt)  ,b*  (c*axt-q2*ginl)  ,b*  (c*ayt-q3*gml)  ,b*(c*azt-q4*gml)  , 


b*giiil1  , 

[b*  (phi+c*tt)  , -b*  (c*axt+q2*gml)  , -b*  (c*ayt+q3*gial) , -b*  (c*azt+q4*gial 


), 

b*gml] ) $ 

(C41)  sp:bl.dq$ 
(C42)  sp2:bel.sp$ 
(C43)  sp:bl.dq$ 


(C44) 

(C45) 

(C46) 

(C47) 

(C48) 

(C49) 

(C50) 

(C51) 

(C52) 

(C53) 

(C54) 

(C55) 

(C56) 

(C57) 

(C58) 


sin2 :  be2  .  sp$ 
h:br.sm2-br.sp2$ 

tl:  (qm[2]*ax+qm[33*ay+qiii[4]*az)  /qm[l]$ 

h[l] :qm[l]*tl+h[l]$ 

h[2] ;qm[2] *tl+ax*qm[6]+h[2]$ 

h[3] ;qm[3] *tl+ay*qm[6]+h[3]$ 

h[43 :qm[4]*tl+az*qm[6]+h[4]$ 

h[5]; (qm[5]+qm[6])*tl+h[5]$ 

tl: (qp[2]*ax+qp[3]*ay+qp[4]*az) /qp[l]$ 

hijk[l] :0.5*(qp[l]*tl+h[l])$ 

hijk[2] :0.5*(qp[2]*tl+ax*qp[6]+h[2] ) $ 

hijk[3] :0.5*(qp[3]*tl+ay*qp[6]+hC3] ) $ 

hijk[4] :0.5*(qp[4]*tl+az*qp[6]+h[4])$ 

hijk[5] : 0. 5* ( (qp[5]+qp[6] ) *tl+h[5] ) $ 

m:matrix{ [1,0, 0,0,0], [0,1, 0,0,0], [0,0, 1,0,0], [0,0,0, -1^0]/ 


[0 


,0,0,0,!])$ 

(C59)  m2: matrix ( [1, 0,0, 0,0,0], [0,1, 0,0, 0,0], [0,0, 1,0, 0,0], [0,0,0,- 


1,0,0], 

[0,0, 0,0, 1,0] , [0,0, 0,0, 0,1])$ 

(C60)  ax:-ztx$ 

(C61)  ay:-zty$ 

(C62)  az:ztz$ 

(C63)  axt:ax/sada$ 

(C64)  ayt:ay/sada$ 

(C65)  azt:az/sada$ 

(C66)  dqo:dq$ 

(C67)  qpo;qp$ 

(C68)  qmo:qm$ 

(C69)  dq:-m.dqo$ 

(C70)  qp;m2.qmo$ 

(C71)  qm:m2.qpo$ 

(C72)  q4:-q4$ 

(C73)  tt:-tt$ 

(C74)  el:tt*sada$ 

(C75)  e4:el+csad$ 

(C76)  e5:el-csad$ 

(C77)  bel: matrix ( [0.5* (el+abs(el) )  ,0,0, 0,0] , 
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[0,0.5*(el+abs(el) ) ,0,0,0] , 

[0,0,0.5*(el+abs(el) ) ,0,0] , 

[0,0,0,0.5*(e4+abs(e4) ) ,0] , 

[0,0, 0,0, 0.5* (e5+abs(e5) )  ] )  $ 

(C78)  be2: matrix ( [0 . 5* (el-abs (el) ) ,0,0, 0,0] , 

[0,0.5*(el-abs(el) ) ,0,0,0] , 

[0,0, 0.5* (el-abs (el) ) ,0,0] , 

[0,0,0,0.5*(e4-abs(e4) )  ,0] , 

[0,0,0,0,0.5*(e5-abs(e5) ) ] ) $ 

(C79)  a:ql/ (sqrt (2) *c) $ 

(C80)  cl:0.5*rqrq$ 

(C81)  c2:c*c/gml$ 

(C82)  br:matrix( [axt,ayt,azt,a,a] , 

[q2*axt,q2*ayt-ql*azt,q2*azt+ql*ayt,a*(q2+c*axt)  , a* (q2-c*axt) ] , 
[q3*axt+ql*azt,q3*ayt,q3*azt-ql*axt,a*(q3+c*ayt)  ,  a*  (q3-c*ayt)  ] , 
[q4*axt-ql*ayt,q4*ayt+ql*axt,q4*azt,a*  (q4+c*azt)  ,  a*  (q4-c*azt)  ] , 
[Cl*axt+ql*(q3*azt-q4*ayt)  ,cl*ayt+ql*  (q4*axt-q2*azt)  , 
cl*azt+ql*(q2*ayt-q3*axt)  , a* (cl+c2+c*tt)  ,a* (cl+c2-c*tt)  ])$ 

(C83)  phi:0.5*gml*rqrq$ 

(C84)  c2:c*c$ 

(C85)  b:l/ (sqrt(2) *rc)$ 

(C86)  cl:l-phi/c2$ 

(C87)  c3:gml/c2$ 

(C88)  bl:matrix( [axt*cl+q6* (q4*ayt-q3*azt) ,axt*q2*c3,axt*q3*c3+azt 
*q6, 

axt*q4*c3-ayt*q6 , -axt*c3 ] , 

[  ayt*cl+q6 *  ( q2  *azt-q4  *axt )  ,  ayt*q2  *c3  -azt *q6 ,  ayt*q3  *c3 , 
ayt*q4*c3+axt*q6 , -ayt*c3 ] , 

[azt*cl+q6*(q3*axt-q2*ayt)  ,azt*q2*c3+ayt*q6,azt*q3*c3-axt*q6, 
azt*q4*c3 , -azt*c3 ] , 

[b*(phi-c*tt)  ,b*(c*axt-q2*gml)  ,b*  (c*ayt-q3*gml)  ,b*  (c*azt-q4*gml)  , 
b*giiil] , 

[b*  (phi+c*tt)  ,-b*(c*axt+q2*gml)  ,-b*  (c*ayt+q3*gml) , -b*  (c*azt+q4*gml 

), 

b*gml] ) $ 

(C89)  sp:bl.dq$ 

(C90)  sp2:bel.sp$ 

(C91)  sp:bl.dq$ 

(C92)  sm2:be2.sp$ 

(C93)  h:br.sm2-br.sp2$ 

(C94)  tl: (qm[2]*ax+qm[3]*ay+qm[4]*az)  /qm[l]$ 

(C95)  h[l] :qm[l]*tl+h[l]$ 

(C96)  h[2] ;qm[2]*tl+ax*qm[6]+h[2]$ 

(C97)  h[3] :qm[3]*tl+ay*qm[6]+h[3]$ 

(C98)  h[4] ;qm[4]*tl+az*qm[6]+h[4]$ 

(C99)  h[5] : (qm[5]+qm[6] ) *tl+h[5]$ 

(ClOO)  tl: (qp[2]*ax+qp[3]*ay+qp[4]*az)  /qp[l]$ 

(ClOl)  hhatijk[l] :0.5*(qp[l]*tl+h[l])$ 

(C102)  hhatijlc[2]  :0.5*(qp[2]*tl+ax*qp[6]+h[2])$ 

(C103)  hhatijk[3] :0.5*(qp[3]*tl+ay*qp[6]+h[3])$ 

(C104)  hhatijk[4] : 0.5* (qp[4] *tl+az*qp[6]+h[4] ) $ 
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(C105)  hhatijk[5] :0.5*((qp[5]+qp[63)*tl+h[5])$ 
(C106)  diff :hijk+m.hhatijk$ 

(C107)  diff ;ratexpand (diff)  ; 

[  0  ] 

[  ] 

[  0  ] 

[  ] 

(D107)  [  0  ] 

[  ] 

[  0  ] 

[  ] 

[  0  ] 

(C108)  closefile(hflux2) $ 
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(C3)  apl: matrix ( [0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 

,0,0, 0,0])$ 

(C4)  ap2:matrix( [0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 

,0,0, 0,0])$ 

(C5)  m:matrix([l,0,0,0,0], [0,1, 0,0,0], [0,0, 1,0,0], [0,0, 0,-1, 0], [0, 

0,0,0,!])$ 

(C6)  diff:matrix( [0,0, 0,0,0] ,[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[ 

0,0, 0,0,0])$ 

(C7)  sign:l$ 

(C8)  cggl: (gam-1) /gam$ 

(C9)  cgg2 : 1/ (2*gam) $ 

(CIO)  xiy:0.0$ 

(Cll)  xiz:0.0$ 

(C12)  sada:sqrt(xix**2+xiy**2+xiz**2)  $ 

(C13)  axt:xix/sada$ 

(C14)  ayt:xiy/sada$ 

(C15)  azt :xiz/sada$ 

(C16)  rqrq;q2**2+q3**2+q4**2$ 

(C17)  q6:l/ql$ 

(C18)  pr; (gam-1) * (q5-0. 5*rqrq*q6)  $ 

(C19)  prgam:pr*gam$ 

(C20)  pp;q5+pr$ 

(C21)  c: sqrt (prgam*q6) $ 

(C22)  tt; (q2*axt+q3*ayt+q4*azt) *q6$ 

(C23)  rc;ql*c$ 

(C24)  csad:c*sada$ 

(C25)  el:tt*sada$ 

(C26)  e4;el+csad$ 

(C27)  e5:el-csad$ 

(C28)  evl: 0.5* (el+sign*abs (el) ) $ 

(C29)  ev4 : 0.5* (e4+sign*abs (e4) ) $ 

(C30)  ev5:0.5*(e5+sign*abs(e5) )$ 

(C31)  cgl;cggl$ 

(C32)  cg2:cgg2$ 

(C33)  cg3;cgg2$ 

(C34)  dlql;-evl*q6$ 

(C35)  dlq2:xix*q6$ 

(C36)  dlq3:xiy*q6$ 

(C37)  dlq4:xiz*q6$ 

(C38)  dlq5:0.0$ 

(C39)  coetgam* (gam-1) / (2*rc) $ 

(C40)  gmlq6: (gam-1) *q6$ 

(C41)  drcql;coe*q5$ 

(C42)  drcq2 : -coe*q2$ 

(C43)  drcq3 : -coe*q3$ 

(C44)  drcq4 : -coe*q4$ 

(C45)  drcq5 : coe*ql$ 

(C46)  dcql: (drcql-c) *q6$ 

(C47)  dcq2 :drcq2*q6$ 

(C48)  dcq3 :drcq3*q6$ 

(C49)  dcq4 ;drcq4*q6$ 
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(C50)  dcq5 :drcq5*q6$ 

(C51)  depql: 0 . 5*gmlq6*rqrq*q6$ 

(C52)  depq2 : -q2*ginlq6$ 

(C53)  depq3 ; -q3*ginlq6$ 

(C54)  depq4:-q4*gmlq6$ 

(C55)  depq5:gam$ 

(C56)  dttql:-tt*q6$ 

(C57)  dttq2:axt*q6$ 

(C58)  dttq3 :ayt*q6$ 

(C59)  dttq4:azt*q6$ 

(C60)  dttq5:0.0$ 

(C61)  d4ql:sada* (dttql+dcql) $ 

(C62)  d4q2 :sada* (dttq2+dcq2) $ 

(C63)  d4q3:sada* (dttq3+dcq3) $ 

(C64)  d4q4:sada* (dttq4+dcq4) $ 

(C65)  d4q5:sada*dcq5$ 

(C66)  d5ql:sada* (dttql-dcql) $ 

(C67)  d5q2 : sada* (dttq2-dcq2) $ 

(C68)  d5q3 ; sada* (dttq3-dcq3) $ 

(C69)  d5q4;sada* (dttq4-dcq4) $ 

(C70)  d5q5:-d4q5$ 

(C71)  a411:ev4+ql*d4ql$ 

(C72)  a511:ev5+ql*d5ql$ 

(C73)  apl[l,l] ;cg2*a411+cg3*a511$ 

(C74)  apl[l,2]: (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 
(C75)  apl[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
(C76)  apl[l,4]: (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C77)  apl[l,5] : (cg2*d4q5+cg3*d5q5) *ql$ 

(C78)  rcaxt:rc*axt$ 

(C79)  ev4ax:ev4*axt$ 

(C80)  ev5ax:ev5*axt$ 

(C81)  coel:q2+rcaxt$ 

(C82)  coe:q2-rcaxt$ 

(C83)  al21;q2*dlql$ 

(C84)  a421:ev4ax*drcql+coel*d4ql$ 

(C85)  a521: -ev5ax*drcql+coe*d5ql$ 

(C86)  apl[2,l] :cgl*al21+cg2*a421+cg3*a521$ 

(C87)  al22:q2*dlq2+evl$ 

(C88)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C89)  a522 :ev5-ev5ax*drcq2+coe*d5q2$ 

(C90)  apl[2,2] :cgl*al22+cg2*a422+cg3*a522$ 

(C91)  al23;q2*dlq3$ 

(C92)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C93 )  a523 : -ev5ax*drcq3+coe*d5q3$ 

(C94)  apl[2,3] :cgl*al23+cg2*a423+cg3*a523$ 

(C95)  al24;q2*dlq4$ 

(C96)  a424 : ev4ax*drcq4+coel*d4q4$ 

(C97)  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C98)  apl[2,4] ;cgl*al24+cg2*a424+cg3*a524$ 

(C99)  al25:q2*dlq5$ 

(ClOO)  a425 : ev4ax*drcq5+coel*d4q5$ 
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(ClOl) 

(C102) 

(C103) 

(C104) 

(C105) 

(C106) 

(C107) 

(C108) 

(C109) 

(Clio) 

(Clll) 

(C112) 

(C113) 

(C114) 

(C115) 

(C116) 

(C117) 

(C118) 

(C119) 

(C120) 

(C121) 

(C122) 

(C123) 

(C124) 

(C125) 

(C126) 

(C127) 

(C128) 

(C129) 

(C130) 

(C131) 

(C132) 

(C133) 

(C134) 

(C135) 

(C136) 

(C137) 

(C138) 

(C139) 

(C140) 

(C141) 

(C142) 

(C143) 

(C144) 

(C145) 

(C146) 

(C147) 

(C148) 

(C149) 

(C150) 

(C151) 


a525 ; -ev5ax*drcq5+coe*d5q5$ 

apl[2,5] :cgl*al25+cg2*a425+cg3*a525$ 

rcayt;rc*ayt$ 

ev4  ay :  ev4  *  ay  t  $ 

ev5ay :ev5*ayt$ 

coel:q3+rcayt$ 

coe:q3-rcayt$ 

al31:q3*dlql$ 

a431: ev4ay*drcql+coel*d4ql$ 
a531: -ev5ay*drcql+coe*d5ql$ 
apl[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
al32;q3*dlq2$ 

a432 : ev4ay*drcq2+coel*d4q2$ 

a532 : -ev5ay*drcq2+coe*d5q2$ 

apl[3,2] :cgl*al32+cg2*a432+cg3*a532$ 

al33 : q3*dlq3+evl$ 

a433 : ev4+ev4ay*drcq3+coel*d4q3$ 

a533 : ev5-ev5ay*drcq3+coe*d5q3$ 

apl[3,3] :cgl*al33+cg2*a433+cg3*a533$ 

al34:q3*dlq4$ 

a434 :ev4ay*drcq4+coel*d4q4$ 

a534 : -ev5ay*drcq4+coe*d5q4$ 

apl [3,4]: cgl*al34+cg2*a434+cg3*a534$ 

al35:q3*dlq5$ 

a4  3  5 : ev4ay *drcq5+coel*d4q5  $ 

a535 ; -ev5ay*drcq5+coe*d5q5$ 

apl [3,5]: cgl*al35+cg2*a435+cg3*a535$ 

rcazt:rc*azt$ 

ev4az:ev4*azt$ 

ev5az : ev5*azt$ 

coel : q4+rcazt$ 

coe:q4-rcazt$ 

al41:q4*dlql$ 

a441: ev4az*drcql+coel*d4ql$ 

a541:  -•ev5az*drcql+coe*d5ql$ 

apl[4 , 1] ;cgl*al41+cg2*a441+cg3*a541$ 

al42:q4*dlq2$ 

a442 : ev4az*drcq2+coel*d4q2$ 

a542 : -ev5az*drcq2+coe*d5q2$ 

apl [4 , 2 ] ; cgl*al42+cg2*a442+cg3*a542$ 

al43;q4*dlq3$ 

a443 : ev4az*drcq3+coel*d4q3$ 

a543 : -ev5az*drcq3+coe*d5q3$ 

apl [4 , 3 ] ; cgl*al43+cg2*a443+cg3*a543$ 

al44 : q4  *dlq4+evl$ 

a444 : ev4+ev4az*drcq4+coel*d4q4$ 

a544 : ev5-ev5az*drcq4+coe*d5q4$ 

apl [4 , 4 ] : cgl*al44+cg2*a444+cg3*a544$ 

al45: q4*dlq5$ 

a445: ev4az*drcq5+coel*d4q5$ 
a545 : -ev5az*drcq5+coe*d5q5$ 
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(C152) 

(C153) 

(C154) 

(C155) 

(C156) 

(C157) 

(C158) 

(C159) 

(C160) 

(C161) 

(C162) 

(C163) 

(C164) 

(C165) 

(C166) 

(C167) 

(C168) 

(C169) 

(C170) 

(C171) 

(C172) 

(C173) 

(C174) 

(C175) 

(C176) 

(C177) 

(C178) 

(C179) 

(C180) 

(C181) 

(C182) 

(C183) 

(C184) 

(C185) 

(C186) 

(C187) 

(C188) 

(C189) 

(C190) 

(C191) 

(C192) 

(C193) 

(C194) 

(C195) 

(C196) 

(C197) 

(C198) 

(C199) 

(C200) 

(C201) 

(C202) 


apl[4 , 5] :cgl*al45+cg2*a445+cg3*a545$ 
rctt:rc*tt$ 

coe:0.5* (q2**2+q3**2+q4**2) *q6$ 

rt:rc*dttql+tt*drcql$ 

al51:2*coe*dlql$ 

a451: ev4* (depql+rt)  +  (pp+rctt)  *d4ql$ 

a551;ev5* (depql-rt) + (pp-rctt) *d5ql$ 

apl [5 , 1] : cgl*al51+cg2*a451+cg3*a551$ 

rt : rc*dttq2+tt*drcq2  $ 

al52 : coe*dlq2-dlql*q2$ 

a452 : ev4* (depq2+rt)  +  (pp+rctt)  *d4q2$ 

a552 ; ev5* (depq2-rt) + (pp-rctt) *d5q2$ 

apl[5, 2] ; cgl*al52+cg2*a452+cg3*a552$ 

rt : rc*dttq3+tt*drcq3  $ 

al53 : coe*dlq3-dlql*q3$ 

a453 :ev4* (depq3+rt)  +  (pp+rctt)  *d4q3$ 

a5  5  3 : ev5  * ( depq3 -rt )  +  ( pp-rctt ) *d5q3  $ 

apl [5,3]; cgl*al53+cg2*a453+cg3*a553$ 

rt : rc*dttq4+tt*drcq4  $ 

al54 ; coe*dlq4-dlql*q4$ 

a454 : ev4* (depq4+rt)  +  (pp+rctt)  *d4q4$ 

a554 : ev5* (depq4-rt)  +  (pp-rctt)  *d5q4$ 

apl[5 , 4 ] : cgl*al54+cg2*a454+cg3*a554$ 

rt:tt*drcq5$ 

al55:coe*dlq5$ 

a455 : ev4* (depq5+rt)  +  (pp+rctt)  *d4q5$ 
a555 : ev5* (depq5-rt)  +  (pp-rctt)  *d5q5$ 
apl [5 , 5 ] : cgl*al55+cg2*a455+cg3*a555$ 

ql:ql$ 
q2 :q2$ 
q3 :q3$ 
q4 ;-q4$ 
q5 :q5$ 
sign: 1$ 

cggl: (gam-l) /gam$ 
cgg2;l/ (2*gaiii)$ 

sada; sqrt (xix**2+xiy**2+xiz**2)  $ 

axt:xix/sada$ 

ayt;xiy/sada$ 

a2t:xiz/sada$ 

rqrq:q2**2+q3**2+q4**2$ 

q6:l/ql$ 

pr: (gam-l) *(q5-0.5*rqrq*q6)  $ 

pr gam ; pr *gam$ 

pp : q5+pr$ 

c: sqrt (prgam*q6) $ 

tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

rc:ql*c$ 

csad;c*sada$ 

el:tt*sada$ 

e4  ;el+csad$ 
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(C203)  e5:el-csad$ 

(C204)  evl:0.5*(el+sign*abs(el)  )$ 

(C205)  ev4:0.5*(e4+sign*abs(e4)  )$ 

(C206)  ev5:0.5*(e5+sign*abs(e5)  )$ 

(C207)  cgl;cggl$ 

(C208)  cg2:cgg2$ 

(C209)  cg3;cgg2$ 

(C210)  dlql:-evl*q6$ 

(C211)  dlq2:xix*q6$ 

(C212)  dlq3:xiY*q6$ 

(C213)  dlq4;xiz*q6$ 

(C214)  dlq5:0.0$ 

(C215)  coe:gam* (gam-1) / (2*rc) $ 

(C216)  gmlq6: (gam-1) *q6$ 

(C217)  drcql:coe*q5$ 

( C2 18 )  dr cq2 : -coe*q2  $ 

(C219)  drcq3:-coe*q3$ 

( C2  2  0 )  dr cq4 : -coe*q4  $ 

(C221)  drcqS : coe*ql$ 

(C222)  dcql: (drcql-c) *q6$ 

(C223)  dcq2:drcq2*q6$ 

(C224)  dcq3 :drcq3*q6$ 

(C225)  dcq4 :drcq4*q6$ 

(C226)  dcq5:drcq5*q6$ 

(C227)  depql:0.5*gmlq6*rqrq*q6$ 

(C228)  depq2:-q2*gmlq6$ 

(C229)  depq3:-q3*gmlq6$ 

( C2  3  0 )  depq4 : -q4  *gmlq6  $ 

(C231)  depq5;gam$ 

(C232)  dttql;-tt*q6$ 

(C233)  dttq2 :axt*q6$ 

(C234)  dttq3:ayt*q6$ 

(C235)  dttq4:azt*q6$ 

(C236)  dttq5:0.0$ 

(C237)  d4ql;sada*(dttql+dcql)$ 

(C238)  d4q2 ; sada* (dttq2+dcq2) $ 

(C239)  d4q3 ;sada* (dttq3+dcq3) $ 

(C240)  d4q4:sada*(dttq4+dcq4)$ 

(C241)  d4q5:sada*dcq5$ 

(C242)  d5ql:sada*(dttql-dcql)$ 

(C243)  d5q2:sada*(dttq2-dcq2)$ 

(C244)  d5q3:sada*(dttq3-dcq3) $ 

(C245)  d5q4:sada*(dttq4-dcq4) $ 

(C246)  d5q5:-d4q5$ 

(C247)  a411:ev4+ql*d4ql$ 

(C248)  a511:ev5+ql*d5ql$ 

(C249)  ap2;matrix( [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], 
[0,0, 0,0,0])$ 

(C250)  ap2[l,l] :cg2*a411+cg3*a511$ 

(C251)  ap2[l,2]: (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 

(C252)  ap2[l,3]: (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
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(C253) 

(C254) 

(C255) 

(C256) 

(C257) 

(C258) 

(C259) 

(C260) 

(C261) 

(C262) 

(C263) 

(C264) 

(C265) 

(C266) 

(C267) 

(C268) 

(C269) 

(C270) 

(C271) 

(C272) 

(C273) 

(C274) 

(C275) 

(C276) 

(C277) 

(C278) 

(C279) 

(C280) 

(C281) 

(C282) 

(C283) 

(C284) 

(C285) 

(C286) 

(C287) 

(C288) 

(C289) 

(C290) 

(C291) 

{C292) 

(C293) 

(C294) 

(C295) 

(C296) 

(C297) 

(C298) 

(C299) 

(C300) 

(C301) 

(C302) 

(C303) 


ap2[l,4] : (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 

ap2[l,5] ; (cg2*d4q5+cg3*d5q5) *ql$ 

rcaxt : rc*axt$ 

e v4  ax : e v4  *  axt $ 

evSax: ev5*axt$ 

coel ; q2+rcaxt$ 

coe:q2-rcaxt$ 

al21:q2*dlql$ 

a42 1 : ev4ax*drcql+coel*d4ql$ 

a52 1 ; -ev5ax*drcql+coe*d5ql$ 

ap2 [2 , 1] :cgl*al21+cg2*a421+cg3*a521$ 

al22 : q2*dlq2+evl$ 

a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

a522 : ev5-ev5ax*drcq2+coe*d5q2$ 

ap2 [2 , 2 ] : cgl*al22+cg2*a422+cg3*a522$ 

al23:q2*dlq3$ 

a423 :ev4ax*drcq3+coel*d4q3$ 
a523 : -ev5ax*drcq3+coe*d5q3$ 
ap2[2,3] :cgl*al23+cg2*a423+cg3*a523$ 
al24:q2*dlq4$ 

a424 : ev4ax*drcq4+coel*d4q4$ 

a524 : -ev5ax*drcq4+coe*d5q4$ 

ap2 [2 , 4] ;cgl*al24+cg2*a424+cg3*a524$ 

al25:q2*dlq5$ 

a425 ; ev4ax*drcq5+coel*d4q5$ 

a525 : -ev5ax*drcq5+coe*d5q5$ 

ap2 [2,5]: cgl*al2  5+cg2  *a425+cg3  *a525$ 

rcayt:rc*ayt$ 

ev4  ay :  e  v4  *  ay  t  $ 

ev5ay : ev5*ayt$ 

coel : q3+rcayt$ 

coe : q3 -rcayt $ 

al31:q3*dlql$ 

a4  3 1 ; ev4ay *drcql+coel*d4ql$ 

a531: -ev5ay*drcql+coe*d5ql$ 

ap2 [3 , 1] ; cgl*al31+cg2*a431+cg3*a531$ 

al32:q3*dlq2$ 

a4  3  2 : ev4ay *dr cq2+coel*d4q2  $ 

a532 : -ev5ay*drcq2+coe*d5q2$ 

ap2 [3 , 2] :cgl*al32+cg2*a432+cg3*a532$ 

al33:q3*dlq3+evl$ 

a433 :ev4+ev4ay*drcq3+coel*d4q3$ 

a533 : ev5-ev5ay*drcq3+coe*d5q3$ 

ap2[3,3] :cgl*al33+cg2*a433+cg3*a533$ 

al34:q3*dlq4$ 

a434 :ev4ay*drcq4+coel*d4q4$ 

a534 : -ev5ay*drcq4+coe*d5q4$ 

ap2 [3 , 4] : cgl*al34+cg2*a434+cg3*a534$ 

al35:q3*dlq5$ 

a435 : ev4ay*drcq5+coel*d4q5$ 
a535 : -ev5ay*drcq5+coe*d5q5$ 
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(C304)  ap2[3,5] : cgl*al35+cg2*a435+cg3*a535$ 

(C305)  rcazt:rc*azt$ 

(C306)  ev4az:ev4*azt$ 

(C307)  ev5az:ev5*azt$ 

(C308)  coel:q4+rcazt$ 

(C309)  coe;q4-rcazt$ 

(C310)  al41;q4*dlql$ 

(C311)  a441:ev4az*drcql+coel*d4ql$ 

(C312)  a541: -ev5az*drcql+coe*d5ql$ 

(C313)  ap2[4,l] :cgl*al41+cg2*a441+cg3*a541$ 
(C314)  al42:q4*dlq2$ 

(C315)  a442 ;ev4az*drcq2+coel*d4q2$ 

(C3 16)  a542 : -ev5az*drcq2+coe*d5q2$ 

(C317)  ap2[4,2] :cgl*al42+cg2*a442+cg3*a542$ 

(C318)  al43:q4*dlq3$ 

(C319)  a443 :ev4az*drcq3+coel*d4q3$ 

(C320)  a543 :-ev5az*drcq3+coe*d5q3$ 

(C321)  ap2[4,3] :cgl*al43+cg2*a443+cg3*a543$ 

(C322)  al44:q4*dlq4+evl$ 

( C3  2  3 )  a4  4  4 : ev4+ev4  az  *dr cq4  +coel*d4q4  $ 

(C324)  a544 :ev5-ev5az*drcq4+coe*d5q4$ 

(C325)  ap2[4,4] ;cgl*al44+cg2*a444+cg3*a544$ 

(C326)  al45:q4*dlq5$ 

(C327)  a445;ev4az*drcq5+coel*d4q5$ 

(C328)  a545:-ev5az*drcq5+coe*d5q5$ 

(C329)  ap2[4,5] : cgl*al45+cg2*a445+cg3*a545$ 

(C330)  rctt:rc*tt$ 

(C331)  coe; 0 . 5* (q2**2+q3**2+q4**2)  *q6$ 
(C332)  rt:rc*dttql+tt*drcql$ 

(C333)  al51:2*coe*dlql$ 

( C3  3  4 )  a4  5 1 : ev4  * ( depql+rt )  +  ( pp+r ctt ) *d4ql$ 

( C3  3  5 )  a5 5 1 : ev5  * ( depql-rt )  +  ( pp-rctt ) *d5ql$ 
(C336)  ap2[5, 1] ; cgl*al51+cg2*a451+cg3*a551$ 
(C337)  rt:rc*dttq2+tt*drcq2$ 

(C338)  al52:coe*dlq2-dlql*q2$ 

(C339)  a452;ev4* (depq2+rt) + (pp+rctt)  *d4q2$ 

( C3 4 0 )  a5 52 : ev5 * ( depq2 -rt )  +  ( pp-rctt )  *d5q2 $ 
(C341)  ap2[5,2] : cgl*al52+cg2*a452+cg3*a552$ 

(C342)  rt:rc*dttq3+tt*drcq3$ 

(C343)  al53:coe*dlq3-dlql*q3$ 

(C344)  a453 : ev4* (depq3+rt)  +  (pp+rctt)  *d4q3$ 

( C3  4 5 )  a5 5 3 : ev5  * ( depq3 -rt )  +  ( pp-rctt ) *d5q3  $ 
(C346)  ap2[5,3] :cgl*al53+cg2*a453+cg3*a553$ 
(C347)  rt:rc*dttq4+tt*drcq4$ 

(C348)  al54:coe*dlq4-dlql*q4$ 

(C349)  a454:ev4*  (depq4+rt)  +  (pp+rctt)  *d4q4$ 
(C350)  a554:ev5* (depq4-rt) + (pp-rctt) *d5q4$ 
(C351)  ap2[5,4] : cgl*al54+cg2*a454+cg3*a554$ 
(C352)  rt;tt*drcq5$ 

(C353)  al55:coe*dlq5$ 

(C354)  a455:ev4* (depq5+rt)  +  (pp+rctt)  *d4q5$ 


Page  7 


APSUP 


(C355) 

(C356) 

(C357) 

(C358) 


(D358) 


(C359) 


a555 : ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
ap2 [5,5] ;cgl*al55+cg2*a455+cg3*a555$ 
di f f : ap 1 . m-m . ap2  $ 
diff :ratexpand(diff ) ; 


[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

c 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

c 

0 

0 

0 

0 

0 

] 

closef ile(Apsup) $ 
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(C3)  apl: matrix ( [0,0,0,0,0],[0,0,0,0,0],[0 

,0,0, 0,0])$ 

(C4)  ap2:matrix( [0,0, 0,0,0], [0,0, 0,0,0],  [0 

,0,0, 0,0])$ 

(C5)  m: matrix ([1,0, 0,0,0] ,[0,1, 0,0,0],  [0,0 

0,0,0,!])$ 

(C6)  diff : matrix ([0,0, 0,0,0] ,[0,0,0,0,0],[ 

0,0, 0,0,0])$ 

(C7)  sign:l$ 

(CS)  cggl: (gam-1) /gam$ 

(C9)  cgg2 : 1/ (2*gam) $ 

(CIO)  xiy:0.0$ 

(Cll)  xiz:0.0$ 

(C12)  sada:sqrt (xix**2+xiy**2+xiz**2)  $ 
(C13)  axt:xix/sada$ 

(C14)  ayt:xiy/sada$ 

(CIS)  azt:xiz/sada$ 

(C16)  rqrq;q2**2+q3**2+q4**2$ 

(C17)  q6:l/ql$ 

(CIS)  pr: (gam-1) * (qS-0. 5*rqrq*q6)  $ 

(C19)  prgam;pr*gam$ 

(C20)  pp;q5+pr$ 

(C21)  c: sqrt (prgam*q6) $ 

(C22)  tt: (q2*axt+q3*ayt+q4*azt)  *q6$ 

(C23)  rc:ql*c$ 

(C24)  csad:c*sada$ 

(C25)  el;tt*sada$ 

(C26)  e4:el+csad$ 

(C27)  e5:el-csad$ 

(C28)  evl:0.5*(el+sign*abs(el) )$ 

(C29)  ev4: 0.5* (e4+sign*abs(e4) ) $ 

(C30)  ev5:0.0$ 

(C31)  cgl:cggl$ 

(C32)  cg2:cgg2$ 

(C33)  cg3:0.0$ 

(C34)  dlql:-evl*q6$ 

(C35)  dlq2:xix*q6$ 

(C36)  dlq3:xiy*q6$ 

(C37)  dlq4;xiz*q6$ 

(C38)  dlq5;0.0$ 

(C39)  coeigam* (gam-1) / (2*rc)  $ 

(C40)  gmlqS: (gam-1) *q6$ 

(C41)  drcql:coe*q5$ 

(C42)  drcq2 : -coe*q2$ 

(C43)  drcq3 :-coe*q3$ 

(C44)  drcq4;-coe*q4$ 

(C45)  drcq5;coe*ql$ 

(C46)  dcql: (drcql-c) *q6$ 

(C47)  dcq2 :drcq2*q6$ 

(C48)  dcq3 ;drcq3*q6$ 

(C49)  dcq4 ;drcq4*q6$ 


0,0,0,0],[0,0,0,0,0],[0 
0,0, 0,0] , [0,0, 0,0,0] ,  [0 
1,0,0] , [0,0,0, -1,0] , [0, 
,0,0, 0,0] , [0,0, 0,0,0] ,  [ 
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(C50)  dcq5;drcq5*q6$ 

(C51)  depql:  0. 5*ginlq6*rqrq*q6$ 

(C52)  depq2 : -q2*gmlq6$ 

(C53)  depqS : -q3*gmlq6$ 

(C54)  depq4 : -q4*ginlq6$ 

(C55)  depq5:gam$ 

(C56)  dttql: -tt*q6$ 

(C57)  dttq2 : axt*q6$ 

(C58)  dttq3 ;ayt*q6$ 

(C59)  dttq4:azt*q6$ 

(C60)  dttq5:0.0$ 

(C61)  d4ql:sada*(dttql+dcql) $ 

(C62)  d4q2 ;sada* (dttq2+dcq2) $ 

(C63)  d4q3 :sada* (dttq3+dcq3) $ 

(C64)  d4q4 : sada* (dttq4+dcq4) $ 

(C65)  d4q5;sada*dcq5$ 

(C66)  dSql: sada* (dttql-dcql) $ 

(C67)  d5q2:sada*(dttq2-dcq2) $ 

(C68)  d5q3 : sada* (dttq3-dcq3 ) $ 

(C69)  d5q4 : sada* (dttq4-dcq4) $ 

(C70)  d5q5;“d4q5$ 

(C71)  a411:ev4+ql*d4ql$ 

(C72)  a511:ev5+ql*d5ql$ 

(C73)  apl[l,l] :cg2*a411+cg3*a511$ 

(C74)  aplU,2]  :  (cgl*dlq2+cg2*d4q2+cg3*d5q2)  *ql$ 
(C75)  apl[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
(C76)  apl[l,4] : {cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C77)  apl[l,5] : (cg2*d4q5+cg3*d5q5)*ql$ 

(C78)  rcaxt:rc*axt$ 

(C79)  ev4ax:ev4*axt$ 

(C80)  ev5ax: ev5*axt$ 

(C81)  coel;q2+rcaxt$ 

(C82)  coe:q2-rcaxt$ 

(C83)  al21:q2*dlql$ 

(C84 )  a421 : ev4ax*drcql+coel*d4ql$ 

(C85)  a521; -ev5ax*drcql+coe*d5ql$ 

(C86)  apl[2,l] :cgl*al21+cg2*a421+cg3*a521$ 

(C87)  al22:q2*dlq2+evl$ 

(C88 )  a422 : ev4+ev4ax*drcq2+coel*d4q2$ 

(C89 )  a522 : ev5-ev5ax*drcq2+coe*d5q2$ 

(C90)  apl[2,2] :cgl*al22+cg2*a422+cg3*a522$ 

(C91)  al23:q2*dlq3$ 

(C92)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C93 )  a523 ; -ev5ax*drcq3+coe*d5q3$ 

(C94)  apl[2,3] :cgl*al23+cg2*a423+cg3*a523$ 

(C95)  al24:q2*dlq4$ 

(C96)  a424; e v4 ax* dr cq4 +coel *d4 q4 $ 

(C97)  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C98)  apl[2,4] :cgl*al24+cg2*a424+cg3*a524$ 

(C99)  al25:q2*dlq5$ 

(ClOO)  a425 : ev4ax*drcq5+coel*d4q5$ 


Page  2 


APSUB 


(ClOl) 

(C102) 

(C103) 

(C104) 

(C105) 

(C106) 

(C107) 

(C108) 

(C109) 

(Clio) 

(Clll) 

(C112) 

(C113) 

(C114) 

(C115) 

(C116) 

(C117) 

(C118) 

(C119) 

(C120) 

(C121) 

(C122) 

(C123) 

(C124) 

(C125) 

(C126) 

(C127) 

(C128) 

(C129) 

(C130) 

(C131) 

(C132) 

(C133) 

(C134) 

(C135) 

(C136) 

(C137) 

(C138) 

(C139) 

(C140) 

(C141) 

(C142) 

(C143) 

(C144) 

(C145) 

(C146) 

(C147) 

(C148) 

{C149) 

(C150) 

(C151) 


a525 : -ev5ax*drcq5+coe*d5q5$ 

apl [2 , 5 ] : cgl*al25+cg2*a425+cg3*a525$ 

rcayt:rc*ayt$ 

ev4ay : ev4  *ayt$ 

ev5ay:ev5*ayt$ 

coel : q3+rcayt$ 

coe:q3-rcayt$ 

al31:q3*dlql$ 

a431: ev4ay*drcql+coel*d4ql$ 
a531: -ev5ay*drcql+coe*d5ql$ 
apl[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
al32 :q3*dlq2$ 

a432 : ev4ay*drcq2+coel*d4q2$ 

a532 : -ev5ay*drcq2+coe*d5q2$ 

apl [3,2]: cgl*al32+cg2*a432+cg3*a532$ 

al33:q3*dlq3+evl$ 

a433 : ev4+ev4ay*drcq3+coel*d4q3$ 

a533 : ev5-ev5ay*drcq3+coe*d5q3$ 

apl [3, 3] ;cgl*al33+cg2*a433+cg3*a533$ 

al34 :q3*dlq4$ 

a434 : ev4ay*drcq4+coel*d4q4$ 

a534 : -ev5ay*drcq4+coe*d5q4$ 

apl [3, 4] :cgl*al34+cg2*a434+cg3*a534$ 

al35:q3*dlq5$ 

a435 : ev4ay*drcq5+coel*d4q5$ 

a535 : -ev5ay*drcq5+coe*d5q5$ 

apl [3 , 5] : cgl*al35+cg2*a435+cg3*a535$ 

rcazt:rc*azt$ 

ev4az : ev4*azt$ 

evSaz : ev5*azt$ 

coel : q4+rcazt$ 

coe:q4-rcazt$ 

al41:q4*dlql$ 

a441: ev4az*drcql+coel*d4ql$ 

a541: -ev5az*drcql+coe*d5ql$ 

apl [4 , 1] : cgl*al41+cg2*a441+cg3*a541$ 

al42:q4*dlq2$ 

a442 : ev4az*drcq2+coel*d4q2$ 

a542 : -ev5az*drcq2+coe*d5q2$ 

apl [4 , 2 ] : cgl*al42+cg2*a442+cg3*a542$ 

al43:q4*dlq3$ 

a443 : ev4az*drcq3+coel*d4q3$ 

a543 : -ev5az*drcq3+coe*d5q3$ 

apl [4 , 3 ] : cgl*al43+cg2*a443+cg3*a543$ 

al44 :q4*dlq4+evl$ 

a444 : ev4+ev4az*drcq4+coel*d4q4$ 

a544 : ev5-ev5az*drcq4 +coe*d5q4$ 

apl [4 , 4 ] : cgl*al44+cg2*a444+cg3*a544$ 

al45:q4*dlq5$ 

a445: ev4az*drcq5+coel*d4q5$ 
a545 : -ev5az*drcq5+coe*d5q5$ 
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(C152)  apl[4,5] : cgl*al45+cg2*a445+cg3*a545$ 
(C153)  rctt:rc*tt$ 

(C154)  Coe:0.5*(q2**2+q3**2+q4**2)*q6$ 
(C155)  rt:rc*dttqH-tt*drcql$ 

(C156)  al51;2*coe*dlql$ 

(C157)  a451:ev4* (depql+rt) +(pp+rctt) *d4ql$ 
(C158)  a551;ev5* (depql-rt) +(pp-rctt) *d5ql$ 
(C159)  apl[5,l] :cgl*al51+cg2*a451+cg3*a551$ 
(C160)  rt:rc*dttq2+tt*drcq2$ 

(C161)  al52:coe*dlq2-dlql*q2$ 

(C162)  a452 :ev4* (depq2+rt)  +  (pp+rctt)  *d4q2$ 
(C163)  a552 :ev5* (depq2-rt) +(pp-rctt) *d5q2$ 
(C164)  apl[5,2] : cgl*al52+cg2*a452+cg3*a552$ 
(C165)  rt:rc*dttq3+tt*drcq3$ 

(C166)  al53:coe*dlq3-dlql*q3$ 

(C167)  a453:ev4*(depq3+rt)  +  (pp+rctt)  *d4q3$ 
(C168)  a553:ev5*(depq3-rt)+(pp-rctt) *d5q3$ 
(C169)  apl[5,3] :cgl*al53+cg2*a453+cg3*a553$ 
(C170)  rt:rc*dttq4+tt*drcq4$ 

(C171)  al54;coe*dlq4-dlql*q4$ 

(C172)  a454;ev4*(depq4+rt)  +  (pp+rctt)  *d4q4$ 
(C173)  a554 :ev5* (depq4“rt) + (pp-rctt) *d5q4$ 
(C174)  apl[5,4] : cgl*al54+cg2*a454+cg3*a554$ 
(C175)  rt:tt*drcq5$ 

(C176)  al55:coe*dlq5$ 

(C177)  a455:ev4* (depq5+rt)  +  (pp+rctt)  *d4q5$ 
(C178)  a555: ev5* (depq5-rt)  +  (pp-rctt)  *d5q5$ 
(C179)  apl[5,5] :cgl*al55+cg2*a455+cg3*a555$ 
(C180)  ql:ql$ 

(C181)  q2;q2$ 

(C182)  q3:q3$ 

(C183)  q4;-q4$ 

(C184)  q5:q5$ 

(C185)  sign:l$ 

(C186)  cggl: (gam-l) /gam$ 

(C187)  cgg2;l/ (2*gari)  $ 

(C188)  sada: sqrt (xix**2+xiy**2+xiz**2)  $ 
(C189)  axt:xix/sada$ 

(C190)  ayt:xiy/sada$ 

(C191)  azt:xiz/sada$ 

(C192)  rqrq:q2**2+q3**2+q4**2$ 

(C193)  q6:l/ql$ 

(C194)  pr : (gam-1) * (q5-0. 5*rqrq*q6)  $ 

(C195)  prgam:pr*gam$ 

(C196)  pp:q5+pr$ 

(C197)  c: sqrt (prgam*q6) $ 

(C198)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

(C199)  rc:ql*c$ 

(C200)  csad:c*sada$ 

(C201)  el:tt*sada$ 

(C202)  e4:el+csad$ 
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(C203)  e5:el-csad$ 

(C204)  evl:  0 . 5*  (eH-sign*abs  (el) )  $ 

(C205)  ev4:0. 5* (e4+sign*abs (e4) )  $ 

(C206)  ev5:0.0$ 

(C207)  cgl:cggl$ 

(C208)  cg2:cgg2$ 

(C209)  cg3:0.0$ 

(C210)  dlql:-evl*q6$ 

(C211)  dlq2:xix*q6$ 

(C212)  dlq3:xiy*q6$ 

(C213)  dlq4:xiz*q6$ 

(C214)  dlq5:0.0$ 

(C215)  coetgam* (gam-l) / (2*rc) $ 

(C216)  gmlqS : (gam-l) *q6$ 

(C217)  drcql:coe*q5$ 

(C218)  drcq2 : -coe*q2$ 

(C219)  drcq3 : -coe*q3$ 

(C220)  drcq4 :-coe*q4$ 

(C221)  drcq5:coe*ql$ 

(C222)  dcql; (drcql-c) *q6$ 

(C223)  dcq2:drcq2*q6$ 

(C224)  dcq3 :drcq3*q6$ 

(C225)  dcq4 :drcq4*q6$ 

(C226)  dcq5:drcq5*q6$ 

(C227)  depql:0.5*gialq6*rqrq*q6$ 

(C228)  depq2  :-q2*gialq6$ 

(C229)  depq3:-q3*gialq6$ 

(C230)  depq4;-q4*gmlq6$ 

(C231)  depq5:gaiii$ 

(C232)  dttql:-tt*q6$ 

(C233)  dttq2 : axt*q6$ 

(C234)  dttq3 :ayt*q6$ 

(C235)  dttq4 :azt*q6$ 

(C236)  dttq5:0.0$ 

(C237)  d4ql: sada* (dttql+dcql) $ 

(C238)  d4q2 : sada* (dttq2+dcq2) $ 

(C239)  d4q3 : sada* (dttq3+dcq3) $ 

(C240)  d4q4 : sada* (dttq4+dcq4) $ 

(C241)  d4q5: sada*dcq5$ 

(C242)  d5ql: sada* (dttql-dcql) $ 

(C243)  d5q2 : sada* (dttq2-dcq2) $ 

(C244)  d5q3 ; sada* (dttq3~dcq3) $ 

(C245)  d5q4 : sada* (dttq4-dcq4) $ 

(C246)  d5q5:-d4q5$ 

(C247)  a411: ev4+ql*d4ql$ 

(C248)  a511:ev5+ql*d5ql$ 

(C249)  ap2:matrix( [0,0,0,0,0],[0,0,0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], 

[0,0, 0,0,0])$ 

(C250)  ap2[l,l] :cg2*a411+cg3*a511$ 

(C251)  ap2[l,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2 ) *ql$ 

(C252)  ap2[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
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(C253) 

(C254) 

(C255) 

(C256) 

(C257) 

(C258) 

(C259) 

(C260) 

(C261) 

(C262) 

(C263) 

(C264) 

(C265) 

(C266) 

(C267) 

(C268) 

(C269) 

(C270) 

(C271) 

(C272) 

(C273) 

(C274) 

(C275) 

(C276) 

(C277) 

(C278) 

(C279) 

(C280) 

(C281) 

(C282) 

(C283) 

(C284) 

(C285) 

(C286) 

(C287) 

(C288) 

(C289) 

(C290) 

(C291) 

(C292) 

(C293) 

(C294) 

(C295) 

(C296) 

(C297) 

(C298) 

(C299) 

(C300) 

(C301) 

(C302) 

(C303) 


ap2[l,4] : (cgl*dlg4+cg2*d4q4+cg3*d5q4) *ql$ 

ap2 [ 1 , 5 ] : ( cg2  *d4q5+cg3  *d5q5 ) *ql$ 

rcaxt:rc*axt$ 

ev4ax:ev4*axt$ 

ev5ax:ev5*axt$ 

coel : q2+rcaxt$ 

coe ; q2 -rcaxt $ 

al2l:q2*dlql$ 

a421:ev4ax*drcql+coel*d4ql$ 

a521: -ev5ax*drcql+coe*d5ql$ 

ap2 [2 , 1] : cgl*al21+cg2*a421+cg3*a521$ 

al22:q2*dlq2+evl$ 

a422 : ev4+ev4ax*drcq2+coel*d4q2  $ 

a522 ; ev5-ev5ax*drcq2+coe*d5q2$ 

ap2[2,2] :cgl*al22+cg2*a422+cg3*a522$ 

al23:q2*dlq3$ 

a423 :ev4ax*drcq3+coel*d4q3$ 
a523 : -ev5ax*drcq3+coe*d5q3$ 
ap2[2,3] :cgl*al23+cg2*a423+cg3*a523$ 
al24;q2*dlq4$ 

a424 ; ev4ax*drcq4+coel*d4q4$ 

a524 ; -ev5ax*drcq4+coe*d5q4$ 

ap2 [2 , 4 ] : cgl*al24+cg2*a424+cg3*a524$ 

al25:q2*dlq5$ 

a425 : ev4ax*drcq5+coel*d4q5$ 

a525 ; -ev5ax*drcq5+coe*d5q5$ 

ap2 [2 , 5] : cgl*al25+cg2*a425+cg3*a525$ 

rcayt:rc*ayt$ 

ev4ay ; ev4  *ayt $ 

ev5ay:ev5*ayt$ 

coel : q3+rcayt$ 

coe : q3 -rcayt$ 

al31:q3*dlql$ 

a431;ev4ay*drcql+coel*d4ql$ 

a531:-ev5ay*drcql+coe*d5ql$ 

ap2[3, 1] ; cgl*al31+cg2*a431+cg3*a531$ 

al32:q3*dlq2$ 

a432 ;ev4ay*drcq2+coel*d4q2$ 

a532 ; -ev5ay*drcq2+coe*d5q2$ 

ap2[3,2] :cgl*al32+cg2*a432+cg3*a532$ 

al33 :q3*dlq3+evl$ 

a433 :ev4+ev4ay*drcq3+coel*d4q3$ 

a533 :ev5-ev5ay*drcq3+coe*d5q3$ 

ap2 [3 , 3 ] : cgl*al33+cg2*a433+cg3*a533$ 

al34:q3*dlq4$ 

a434 ; ev4ay*drcq4+coel*d4q4$ 

a534 : -ev5ay*drcq4+coe*d5q4$ 

ap2 [3 , 4 ] : cgl*al34+cg2*a434+cg3*a534$ 

al35;q3*dlq5$ 

a435 : ev4ay*drcq5+coel*d4q5$ 
a535 : ~ev5ay*drcq5+coe*d5q5$ 
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(C304)  ap2[3,5] ; cgl*al35+cg2*a435+cg3*a535$ 
(C305)  rcazt:rc*azt$ 

(C306)  ev4az;ev4*azt$ 

(C307)  ev5az:ev5*azt$ 

(C308)  coel;q4+rcazt$ 

(C309)  coe:q4-rcazt$ 

(C310)  al41:q4*dlql$ 

(C311)  a441:ev4az*drcql+coel*d4ql$ 

(C312 )  a541 : -ev5az*drcql+coe*d5ql$ 

(C313)  ap2[4,l] :cgl*al41+cg2*a441+cg3*a541$ 
(C314)  al42:q4*dlq2$ 

(C315)  a442:ev4az*drcq2+coel*d4q2$ 

(C316)  a542: “ev5az*drcq2+coe*d5q2$ 

(C317)  ap2[4,2] :cgl*al42+cg2*a442+cg3*a542$ 
(C318)  al43:q4*dlq3$ 

(C319)  a443:ev4az*drcq3+coel*d4q3$ 

(C320)  a543 : -ev5az*drcq3+coe*d5q3$ 

(C321)  ap2[4,3] :cgl*al43+cg2*a443+cg3*a543$ 
(C322)  al44:q4*dlq4+evl$ 

(C323 )  a444 : ev4+ev4az*drcq4+coel*d4q4$ 

(C324 )  a544 : ev5-ev5az*drcq4+coe*d5q4$ 

(C325)  ap2[4,4] ;cgl*al44+cg2*a444+cg3*a544$ 
(C326)  al45:q4*dlq5$ 

(C327)  a445: ev4az*drcq5+coel*d4q5$ 

(C328)  a545: -ev5az*drcq5+coe*d5q5$ 

(C329)  ap2[4,5] ;cgl*al45+cg2*a445+cg3*a545$ 
(C330)  rctt:rc*tt$ 

(C331)  coe:0.5* (q2**2+q3**2+q4**2) *q6$ 
(C332)  rt:rc*dttql+tt*drcql$ 

(C333)  al51:2*coe*dlql$ 

(C334)  a451:ev4* (depql+rt)  +  (pp+rctt)  *d4ql$ 
(C335)  a551:ev5* (depql-rt) +(pp-rctt)  *d5ql$ 
(C336)  ap2[5,l]  : cgl*al51+cg2*a45H-cg3*a551$ 
(C337)  rt:rc*dttq2+tt*drcg2$ 

(C338)  al52:coe*dlq2-dlql*q2$ 

(C339)  a452;ev4*(depq2+rt) +(pp+rctt) *d4q2$ 
(C340)  a552 : ev5* (depq2-rt) + (pp-rctt) *d5q2$ 
(C341)  ap2t5,2] :cgl*al52+cg2*a452+cg3*a552$ 
(C342)  rt:rc*dttq3+tt*drcq3$ 

(C343)  al53;coe*dlq3-dlql*q3$ 

(C344)  a453 : ev4* (depq3+rt) +(pp+rctt)  *d4q3$ 
(C345)  a553:ev5*(depq3“rt)  +  (pp-rctt)  *d5q3$ 
(C346)  ap2[5,3] :cgl*al53+cg2*a453+cg3*a553$ 
(C347)  rt:rc*dttq4+tt*drcq4$ 

(C348)  al54:coe*dlq4-dlql*q4$ 

(C349)  a454 :ev4* (depq4+rt)  +  (pp+rctt)  *d4q4$ 
(C350)  a554 :ev5* (depq4-rt) + (pp-rctt)  *d5q4$ 
(C351)  ap2[5,43 : cgl*al54+cg2*a454+cg3*a554$ 
(C352)  rt:tt*drcq5$ 

(C353)  al55:coe*dlq5$ 

(C354)  a455:ev4* (depq5+rt)  +  (pp+rctt)  *d4q5$ 
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(C355) 

(C356) 

(C357) 

(C358) 


(D358) 


(C359) 

i 


a555:ev5*(depq5-rt)  +  (pp-rctt)  *d5q5$ 
ap2[5,5] ;cgl*al55+cg2*a455+cg3*a555$ 
dif  f ; apl . m-m . ap2  $ 
diff :ratexpand(diff ) ; 


[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

3 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

t 

] 

[ 

0 

0 

0 

0 

0 

3 

[ 

3 

[ 

0 

0 

0 

0 

0 

3 

closef  ile  (Apsxib)  $ 
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(C3)  apl:inatrix(  [0,0, 0,0,0]  ,[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 

,0,0,0,01)$ 

(C4)  ap2 :matrix( [0, 0, 0, 0, 0] ,[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 

,0,0,0,01)$ 

(C5)  m: matrix ( [1,0,0,0,0],[0,1,0,0,01,[0,0,1,0,0],[0,0,0,-1,01,[0, 

0,0,0,!])$ 

(C6)  diff:matrix( [0,0, 0,0,0] ,[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[ 

0,0,0,0,01)$ 

(C7)  sign:l$ 

(C8)  cggl: (gam-1) /gam$ 

(C9)  cgg2:l/ (2*gam) $ 

(CIO)  xiy:0.0$ 

(Cll)  xi2:0.0$ 

(C12)  sada;sqrt(xix**2+xiy**2+xiz**2) $ 

(C13)  axt:xix/sada$ 

(C14)  ayt:xiy/sada$ 

(C15)  azt:xiz/sada$ 

(C16)  rqrq:q2**2+q3**2+q4**2$ 

(C17)  q6:l/ql$ 

(C18)  pr: (gam-1) * (q5-0. 5*rqrq*q6) $ 

(C19)  prgam:pr*gam$ 

(C20)  pp:q5+pr$ 

(C21)  c; sqrt (prgam*q6) $ 

(C22)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

(C23)  rc:ql*c$ 

(C24)  csad:c*sada$ 

(C25)  el:tt*sada$ 

(C26)  e4;el+csad$ 

(C27)  e5:el-csad$ 

(C28)  evl:0.5*(el+sign*abs(el) ) $ 

(C29)  ev4 ; 0 . 5* (e4+sign*abs (e4) ) $ 

(C30)  ev5:0.0$ 

(C31)  cgl:cggl$ 

(C32)  cg2:cgg2$ 

(C33)  cg3:0.0$ 

(C34)  dlql;-evl*q6$ 

(C35)  dlq2:xix*q6$ 

(C36)  dlq3:xiy*q6$ 

(C37)  dlq4:xiz*q6$ 

(C38)  dlq5:0.0$ 

(C39)  coecgam* (gam-1) / (2*rc) $ 

(C40)  gmlqe : (gam-1) *q6$ 

(C41)  drcql:coe*q5$ 

(C42)  drcq2 ;-coe*q2$ 

(C43)  drcq3 : -coe*q3$ 

(C44)  drcq4 ; -coe*q4$ 

(C45)  drcq5:coe*ql$ 

(C46)  dcql: (drcql-c) *q6$ 

(C47)  dcq2 :drcq2*q6$ 

(C48)  dcq3 ;drcq3*q6$ 

(C49)  dcq4:drcq4*q6$ 
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(C50)  dcg5:drcq5*q6$ 

(C51)  depql: 0. 5*ginlq6*rqrq*q6$ 

(C52)  depq2 : -q2*gmlq6$ 

(C53)  depq3 : -q3*ginlq6$ 

(C54)  depq4 : -q4*giulq6$ 

(C55)  depq5:gain$ 

(C56)  dttql:-tt*q6$ 

(C57)  dttq2:axt*q6$ 

(C58)  dttq3:ayt*q6$ 

(C59)  dttq4 ;azt*q6$ 

(C60)  dttq5;0.0$ 

(C61)  d4ql:sada* (dttql+dcql) $ 

(C62)  d4q2:sada*(dttq2+dcq2) $ 

(C63)  d4q3 : sada* (dttq3+dcq3) $ 

(C64)  d4q4 : sada* (dttq4+dcq4) $ 

(C65)  d4q5; sada*dcq5$ 

(C66)  d5ql;sada* (dttql-dcql) $ 

(C67)  d5q2 : sada* (dttq2-dcq2) $ 

(C68)  d5q3;sada*(dttq3-dcq3)$ 

(C69)  d5q4 ;sada* (dttq4-dcq4) $ 

(C70)  d5q5:-d4q5$ 

(C71)  a411:ev4+ql*d4ql$ 

(C72)  a511:ev5+ql*d5ql$ 

(C73)  apl[l, 1] :cg2*a411+cg3*a511$ 

(C74)  apl[l,2]; (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 
(C75)  apl[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
(C76)  apl[l,4]: (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C77)  apl [1, 5] : (cg2*d4q5+cg3*d5q5)  *ql$ 

(C78)  rcaxt:rc*axt$ 

(C79)  ev4ax;ev4*axt$ 

(C80)  ev5ax: ev5*axt$ 

(C81)  coel:q2+rcaxt$ 

(C82)  coe;q2-rcaxt$ 

(C83)  al21:q2*dlql$ 

( C84 )  a4  2 1 : ev4  ax*dr cql+coel *d4 ql $ 

(C85)  a521: -ev5ax*drcql+coe*d5ql$ 

(C86)  apl[2,l] :cgl*al21+cg2*a421+cg3*a521$ 

(C87)  al22:q2*dlq2+evl$ 

(C88)  a422 ;ev4+ev4ax*drcq2+coel*d4q2$ 

(C89)  a522 :ev5-ev5ax*drcq2+coe*d5q2$ 

(C90)  apl[2,2] :cgl*al22+cg2*a422+cg3*a522$ 

(C91)  al23:q2*dlq3$ 

(C92 )  a423 : ev4ax*drcq3+coel*d4q3$ 

(C93 )  a523 : -ev5ax*drcq3+coe*d5q3$ 

(C94)  apl[2,3] :cgl*al23+cg2*a423+cg3*a523$ 

(C95)  al24:q2*dlq4$ 

(C96)  a424 ;ev4ax*drcq4+coel*d4q4$ 

(C97)  a524 ; -ev5ax*drcq4+coe*d5q4$ 

(C98)  apl[2,4] :cgl*al24+cg2*a424+cg3*a524$ 

(C99)  al25:q2*dlq5$ 

(ClOO)  a425 : ev4ax*drcq5+coel*d4q5$ 
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(ClOl) 

(C102) 

(C103) 

(C104) 

(C105) 

(C106) 

(C107) 

(C108) 

(C109) 

(Clio) 

(Clll) 

(C112) 

(C113) 

(C114) 

(C115) 

(C116) 

(C117) 

(C118) 

(C119) 

(C120) 

(C121) 

(C122) 

(C123) 

(C124) 

(C125) 

(C126) 

(C127) 

(C128) 

(C129) 

(C130) 

(C131) 

(C132) 

(C133) 

(C134) 

(C135) 

(C136) 

(C137) 

(C138) 

(C139) 

(C140) 

(C141) 

(C142) 

(C143) 

(C144) 

(C145) 

(C146) 

(C147) 

(C148) 

(C149) 

(C150) 

(C151) 


a525 : -ev5ax*drcg5+coe*d5q5$ 

apl[2,5] :cgl*al25+cg2*a425+cg3*a525$ 

rcayt:rc*ayt$ 

ev4ay ; ev4  *ayt$ 

ev5ay ; ev5*ayt$ 

coel ; q3+rcayt$ 

coe:q3-rcayt$ 

al31:q3*dlql$ 

a431: ev4ay*drcql+coel*d4ql$ 
a531: -ev5ay*drcql+coe*d5ql$ 
apl [3,1]: cgl*al3 l+cg2*a43 l+cg3  *a53 1$ 
al32 :q3*dlq2$ 

a432 : ev4ay*drcq2+coel*d4q2$ 

a532 : -ev5ay*drcq2+coe*d5q2$ 

apl [3,2]: cgl*al32+cg2*a432+cg3*a532$ 

al3  3 : q3  *dlq3  +evl$ 

a4  3  3 : ev4  +ev4  ay *dr cq3  +coel *d4q3  $ 

a533 :ev5-ev5ay*drcq3+coe*d5q3$ 

apl[3,3] :cgl*al33+cg2*a433+cg3*a533$ 

al34:q3*dlq4$ 

a434 : ev4ay*drcq4+coel*d4q4$ 

a534 : -ev5ay*drcq4+coe*d5q4$ 

apl[3 , 4] :cgl*al34+cg2*a434+cg3*a534$ 

al35:q3*dlq5$ 

a435: ev4ay*drcq5+coel*d4q5$ 

a535 : ~ev5ay*drcq5+coe*d5q5$ 

apl[3 ,5] :cgl*al35+cg2*a435+cg3*a535$ 

rcazt :rc*azt$ 

ev4az : ev4  *az t $ 

ev5az : ev5*azt$ 

coel : q4+rcazt$ 

coe:q4“rcazt$ 

al41:q4*dlql$ 

a441: ev4az*drcql+coel*d4ql$ 

a541: -ev5az*drcql+coe*d5ql$ 

apl[4 , 1] :cgl*al41+cg2*a441+cg3*a541$ 

al42:q4*dlq2$ 

a442 : ev4az*drcq2+coel*d4q2$ 

a542 : -ev5az*drcq2+coe*d5q2$ 

apl[4 ,2] :cgl*al42+cg2*a442+cg3*a542$ 

al43:q4*dlq3$ 

a443 : ev4az*drcq3+coel*d4q3$ 

a543 : -ev5az*drcq3+coe*d5q3$ 

apl [4 , 3] :cgl*al43+cg2*a443+cg3*a543$ 

al44 : q4*dlq4+evl$ 

a444 : ev4+ev4az*drcq4+coel*d4q4$ 

a544 : ev5-ev5az*drcq4+coe*d5q4$ 

apl [4 , 4 ] : cgl*al44+cg2*a444+cg3*a544$ 

al45:q4*dlq5$ 

a445 : ev4az*drcq5+coel*d4q5$ 
a545 : -ev5az*drcq5+coe*d5q5$ 
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(C152) 

(C153) 

(C154) 

(C155) 

(C156) 

(C157) 

(C158) 

(C159) 

(C160) 

(C161) 

(C162) 

(C163) 

(C164) 

(C165) 

(C166) 

(C167) 

(C168) 

(C169) 

(C170) 

(C171) 

(C172) 

(C173) 

(C174) 

(C175) 

(C176) 

(C177) 

(C178) 

(C179) 

(C180) 

(C181) 

(C182) 

(C183) 

(C184) 

(C185) 

(C186) 

(C187) 

(C188) 

(C189) 

(C190) 

(C191) 

(C192) 

(C193) 

(C194) 

(C195) 

(C196) 

(C197) 

(C198) 

(C199) 

(C200) 

(C201) 

(C202) 


apl[4,5] :cgl*al45+cg2*a445+cg3*a545$ 
rctt:rc*tt$ 

coe:0.5* (q2**2+q3**2+q4**2) *q6$ 
rt : rc*dttql+tt*drcql$ 
al51:2*coe*dlql$ 

a451:ev4* (depql+rt) +(pp+rctt) *d4ql$ 

a551 ; ev5* (depql-rt) + (pp-rctt) *d5ql$ 

apl[5, 1] : cgl*al51+cg2*a451+cg3*a551$ 

rt : rc*dttq2+tt *drcq2  $ 

al52 ; coe*dlq2-dlql*q2$ 

a452 : ev4* (depq2+rt) + (pp+rctt) *d4q2$ 

a552 ; ev5* (depq2-rt) + (pp-rctt) *d5q2$ 

apl [5,2]: cgl*al52+cg2*a452+cg3  *a552$ 

rt : rc*dttq3+tt*drcq3  $ 

al53 : coe*dlq3-dlql*q3$ 

a453 :ev4* (depq3+rt)  +  (pp+rctt)  *d4q3$ 

a553:ev5* (depq3-rt) + (pp-rctt) *d5q3$ 

apl [5 , 3 ] : cgl*al53+cg2*a453+cg3*a553$ 

rt ; rc*dttq4  +tt *drcq4  $ 

al54 : coe*dlq4-dlql*q4$ 

a454 : ev4* (depq4+rt) + (pp+rctt) *d4q4$ 

a554 : ev5* (depq4-rt) + (pp-rctt) *d5q4$ 

apl [5, 4] :cgl*al54+cg2*a454+cg3*a554$ 

rt:tt*drcq5$ 

al55 : coe*dlq5$ 

a455;ev4* (depq5+rt) + (pp+rctt) *d4q5$ 

a555 : ev5* (depq5-rt)  +  (pp-rctt)  *d5q5$ 

apl[5, 5] :cgl*al55+cg2*a455+cg3*a555$ 

ql:ql$ 

q2:q2$ 

q3:q3$ 

q4:-q4$ 

q5:q5$ 

sign: 1$ 

cggl:  (gam-l)  /gaia$ 
cgg2: 1/  (2*gaiii)  $ 

sada: sqrt (xix**2+xiy**2+xiz**2)  $ 

axt:xix/sada$ 

ayt:xiy/sada$ 

azt:xiz/sada$ 

rqrq:q2**2+q3**2+q4**2$ 

q6:l/ql$ 

pr: (gam-l) * (q5-0. 5*rqrq*q6)  $ 

prgam:pr*gam$ 

pp:q5+pr$ 

c : sqrt (prgam*q6 ) $ 

tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

rc:ql*c$ 

csad:c*sada$ 

el:tt*sada$ 

e4 :el+csad$ 
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(C203)  e5:el-csad$ 

(C204)  evl:0.5*(el+sign*abs(el) )$ 

(C205)  ev4:0.5* (e4+sign*abs(e4) ) $ 

(C206)  ev5:0.0$ 

(C207)  cgl:cggl$ 

(C208)  cg2;cgg2$ 

(C209)  cg3:0.0$ 

(C210)  dlql: -evl*q6$ 

(C211)  dlq2:xix*q6$ 

(C212)  dlq3:xiy*q6$ 

(C213)  dlq4:xiz*q6$ 

(C214)  dlq5;0.0$ 

(C215)  coe:gam* (gam-l) / (2*rc) $ 

(C216)  gmlq6: (gam-l) *q6$ 

(C217)  drcql;coe*q5$ 

(C218)  drcq2 :-coe*q2$ 

(C219)  drcq3 ;-coe*q3$ 

(C220)  drcq4 :-coe*q4$ 

(C221)  drcq5;coe*ql$ 

(C222)  dcql: (drcql-c) *q6$ 

(C223)  dcq2 :drcq2*q6$ 

(C224)  dcq3 : drcq3*q6$ 

(C225)  dcq4;drcq4*q6$ 

(C226)  dcq5:drcq5*q6$ 

(C227)  depql;0.5*gmlq6*rgrq*q6$ 

(C228)  depq2 : -q2*gmlq6$ 

(C229)  depq3 :-q3*gmlq6$ 

(C230)  depq4 :-q4*gmlq6$ 

(C231)  depq5:gam$ 

(C232)  dttql:-tt*q6$ 

(C233)  dttq2:axt*q6$ 

(C234)  dttq3 :ayt*q6$ 

(C235)  dttq4 : azt*q6$ 

(C236)  dttq5:0.0$ 

(C237)  d4ql: sada* (dttql+dcql) $ 

(C238)  d4q2 : sada* (dttq2+dcg2) $ 

(C239)  d4q3:sada*(dttq3+dcq3) $ 

(C240)  d4q4 : sada* (dttq4+dcq4) $ 

(C241)  d4q5;sada*dcq5$ 

(C242)  dSql: sada* (dttql-dcql) $ 

(C243)  d5q2 : sada* (dttq2-dcq2) $ 

(C244)  d5q3 : sada* (dttq3-dcq3) $ 

(C245)  d5q4 : sada* (dttq4-dcq4) $ 

(C246)  d5q5:-d4q5$ 

(C247)  a411: ev4+ql*d4ql$ 

(C248)  a511:ev5+ql*d5ql$ 

(C249)  ap2:matrix( [0,0, 0,0,0], [0,0, 0,0,0],  [0,0, 0,0,0],  [0,0, 0,0,0], 

[0,0, 0,0,0])$ 

(C250)  ap2[l,l] ;cg2*a411+cg3*a511$ 

(C251)  ap2[l,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2 ) *ql$ 

(C252 )  ap2 [1,3]: (cgl*dlq3+cg2*d4q3+cg3*d5q3 ) *ql$ 
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(C253)  ap2[l,4]: (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C254)  ap2[l,5] : (cg2*d4q5+cg3*d5q5)  *ql$ 

(C255)  rcaxt:rc*axt$ 

(C256)  ev4ax:ev4*axt$ 

(C257)  ev5ax:ev5*axt$ 

(C258)  coel:q2+rcaxt$ 

(C259)  coe:q2-rcaxt$ 

(C260)  al21:q2*dlql$ 

( C2  61 )  a4 21 : ev4 ax*drcql+coel*d4ql$ 

(C262 )  a521 : -ev5ax*drcql+coe*d5ql$ 

(C263)  ap2[2,l] :cgl*al21+cg2*a421+cg3*a521$ 
(C264)  al22:q2*dlq2+evl$ 

(C265 )  a422 : ev4+ev4ax*drcq2+coel*d4q2$ 

(C266 )  a522 : ev5-ev5ax*drcq2+coe*d5q2 $ 

(C267)  ap2[2,2] :cgl*al22+cg2*a422+cg3*a522$ 
(C268)  al23;q2*dlq3$ 

(C269)  a423: ev4 ax*drcq3+coel*d4q3 $ 

(C270)  a523 ; -ev5ax*drcq3+coe*d5q3$ 

(C271)  ap2[2,3] :cgl*al23+cg2*a423+cg3*a523$ 
(C272)  al24:q2*dlq4$ 

( C2  7  3 )  a4  2  4 : ev4  ax*drcq4  +coel*d4q4  $ 

(C274 )  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C275)  ap2[2,4] :cgl*al24+cg2*a424+cg3*a524$ 
(C276)  al25:q2*dlq5$ 

(C277 )  a425 : ev4ax*drcq5+coel*d4q5$ 

(C278 )  a525 : -ev5ax*drcq5+coe*d5q5$ 

(C279)  ap2[2,5] : cgl*al25+cg2*a425+cg3*a525$ 
(C280)  rcayt:rc*ayt$ 

(C281)  ev4ay:ev4*ayt$ 

(C282)  ev5ay:ev5*ayt$ 

(C283)  coel:q3+rcayt$ 

(C284)  coe:q3-rcayt$ 

(C285)  al31:q3*dlql$ 

(C286 )  a43 1 : ev4ay*drcql+coel*d4ql$ 

(C287 )  a531 :  -ev5ay*drcqH-coe*d5ql$ 

(C288)  ap2[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
(C289)  al32:q3*dlq2$ 

(C290)  a432 : ev4ay*drcq2+coel*d4q2$ 

(C291)  a532 : -ev5ay*drcq2+coe*d5q2$ 

(C292)  ap2[3,2] : cgl*al32+cg2*a432+cg3*a532$ 
(C293)  al33:q3*dlq3+evl$ 

(C294)  a433 :ev4+ev4ay*drcq3+coel*d4q3$ 

(C295)  a533 ;ev5-ev5ay*drcq3+coe*d5q3$ 

(C296)  ap2[3,3] : cgl*al33+cg2*a433+cg3*a533$ 
(C297)  al34:q3*dlq4$ 

(C298)  a434 ;ev4ay*drcq4+coel*d4q4$ 

(C299)  a534 ; -ev5ay*drcq4+coe*d5q4$ 

(C300)  ap2[3,4] : cgl*al34+cg2*a434+cg3*a534$ 
(C301)  al35;q3*dlq5$ 

(C302 )  a435:ev4ay*drcq5+coel*d4q5$ 

(C303 )  a535 : -ev5ay*drcq5+coe*d5q5$ 
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(C304) 

(C305) 

(C306) 

(C307) 

(C308) 

(C309) 

(C310) 

(C311) 

(C312) 

(C313) 

(C314) 

(C315) 

(C316) 

(C317) 

(C318) 

(C319) 

(C320) 

(C321) 

(C322) 

(C323) 

(C324) 

(C325) 

(C326) 

(C327) 

(C328) 

(C329) 

(C330) 

(C331) 

(C332) 

(C333) 

(C334) 

(C335) 

(C336) 

(C337) 

(C338) 

(C339) 

(C340) 

(C341) 

(C342) 

(C343) 

(C344) 

(C345) 

(C346) 

(C347) 

(C348) 

(C349) 

(C350) 

(C351) 

(C352) 

(C353) 

(C354) 


ap2[3,53 ;cgl*al35+cg2*a435+cg3*a535$ 

rcazt:rc*azt$ 

ev4az:ev4*azt$ 

ev5az : ev5*azt$ 

coel : q4+rcazt$ 

coe:q4-rcazt$ 

al41:q4*dlql$ 

a441 : ev4az*drcql+coel*d4ql$ 

a541: -ev5az*drcql+coe*d5ql$ 

ap2 [4 , 1] ;cgl*al41+cg2*a441+cg3*a541$ 

al42;q4*dlq2$ 

a442 ; ev4az*drcq2+coel*d4q2$ 

a542 ; -ev5az*drcq2+coe*d5q2$ 

ap2 [4,2] ;cgl*al42+cg2*a442+cg3*a542$ 

al43:q4*dlq3$ 

a443;ev4az*drcq3+coel*d4q3$ 

a543 : -ev5az*drcq3+coe*d5q3$ 

ap2 [4 , 3 ] :cgl*al43+cg2*a443+cg3*a543$ 

al44 :q4*dlq4+evl$ 

a444 : ev4+ev4az*drcq4+coel*d4q4$ 

a544 : ev5-ev5az*drcq4+coe*d5q4$ 

ap2 [4 , 4 ] : cgl*al44+cg2*a444+cg3*a544$ 

al45:q4*dlq5$ 

a445; ev4az*drcq5+coel*d4q5$ 

a545 : -ev5az*drcq5+coe*d5q5$ 

ap2 [4 , 5] :cgl*al45+cg2*a445+cg3*a545$ 

rctt:rc*tt$ 

coe: 0. 5* (q2**2+q3**2+q4**2) *q6$ 

rt:rc*dttql+tt*drcql$ 

al51: 2*coe*dlql$ 

a451;ev4* (depql+rt) +(pp+rctt)  *d4ql$ 

a551:ev5* (depql-rt) + (pp-rctt) *d5ql$ 

ap2 [5 , 1] :cgl*al51+cg2*a451+cg3*a551$ 

rt ; rc*dttq2+tt*drcq2  $ 

al52 : coe*dlq2-dlql*q2$ 

a452:ev4*(depq2+rt) +(pp+rctt) *d4q2$ 

a552:ev5*(depq2-rt) + (pp-rctt)  *d5q2$ 

ap2 [5,2]: cgl*al52+cg2*a452+cg3*a552$ 

rt : rc*dttq3+tt*drcq3  $ 

al53 : coe*dlq3-dlql*q3$ 

a453 : ev4* (depq3+rt) + (pp+rctt) *d4q3$ 

a553 : ev5* (depq3-rt)  +  (pp-rctt)  *d5q3$ 

ap2[5, 3] :cgl*al53+cg2*a453+cg3*a553$ 

rt : rc*dttq4+tt*drcq4  $ 

al54 : coe*dlq4-dlql*q4$ 

a454 : ev4* (depq4+rt) + (pp+rctt)  *d4q4$ 

a554 : ev5* (depq4-rt) + (pp-rctt)  *d5q4$ 

ap2 [5 , 4 ] : cgl*al54+cg2*a454+cg3*a554$ 

rt: tt*drcq5$ 

al55 : coe*dlq5$ 

a455: ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
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(C355) 

(C356) 

(C357) 

(C358) 


(D358) 


(C359) 

i 


a555 : ev5* (depg5-rt) + (pp-rctt ) *d5q5$ 
ap2 [5,5] :cgl*al55+cg2*a455+cg3*a555$ 
dif f : apl . m-m . ap2  $ 
diff :ratexpand(diff ) ; 


[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

closefile(Apsub) $ 
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(C3)  ami  matrix ([0,0, 0,0,0] ,[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 

,0,0, 0,0])$ 

(C4)  am2:matrix( [0,0, 0,0,0] ,[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 

,0,0, 0,0])$ 

(C5)  m;matrix([ 1,0, 0,0,0] , [0,1, 0,0,0]  ,  [0,0, 1,0,0] , [0,0, 0,-1, 0]  ,  [0, 

0,0, 0,1])$ 

(C6)  sign:-l$ 

(C7)  cggl: (gam-1) /gam$ 

(C8)  cgg2 : 1/ (2*gam) $ 

(C9)  xiy:0.0$ 

(CIO)  xiz:0.0$ 

(Cll)  sadarsqrt (xix**2+xiy**2+xi2**2) $ 

(C12)  axt;xix/sada$ 

(C13)  ayt:xiy/sada$ 

(C14)  azt:xi2/sada$ 

(C15)  rqrq:q2**2+q3**2+q4**2$ 

(C16)  q6:l/ql$ 

(C17)  pr: (gam-1) * (q5-0.5*rqrq*q6)  $ 

(C18)  prgam:pr*gam$ 

(C19)  pp:q5+pr$ 

(C20)  c: sqrt (prgam*q6) $ 

(C21)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

(C22)  rc:ql*c$ 

(C23)  csad:c*sada$ 

(C24)  el:tt*sada$ 

(C25)  e4:el+csad$ 

(C26)  e5:el-csad$ 

(C27)  evl:0.0$ 

(C28)  ev4:0.0$ 

(C29)  ev5:0.0$ 

(C30)  cgl:0.0$ 

(C31)  cg2:0.0$ 

(C32)  cg3;0.0$ 

(C33)  dlql:-evl*q6$ 

(C34)  dlq2:xix*q6$ 

(C35)  dlq3:xiy*q6$ 

(C36)  dlq4:xiz*q6$ 

(C37)  dlq5:0.0$ 

(C38)  coe : gam* (gam-1) / (2*rc) $ 

(C39)  gmlq6: (gam-1) *q6$ 

(C40)  drcql:coe*q5$ 

( C4 1 )  dr cq2 ; -coe  *q2  $ 

(C42)  drcq3:-coe*q3$ 

(C43)  drcq4 : -coe*q4$ 

(C44)  drcqS ; coe*ql$ 

(C45)  dcql: (drcql-c) *q6$ 

(C46)  dcq2 :drcq2*q6$ 

(C47)  dcq3 :drcq3*q6$ 

(C48)  dcq4:drcq4*q6$ 

(C49)  dcq5;drcq5*q6$ 

(C50)  depql: 0.5*gmlq6*rqrq*q6$ 
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(C51)  depq2 : -q2*gialq6$ 

(C52)  depq3 : -q3*gmlq6$ 

(C53)  depq4 : “q4*gmlq6$ 

(C54)  depq5:gam$ 

(C55)  dttql: -tt*q6$ 

(C56)  dttq2:axt*q6$ 

(C57)  dttq3 : ayt*q6$ 

(C58)  dttq4 :a2t*q6$ 

(C59)  dttq5:0.0$ 

(C60)  d4ql: sada* (dttql+dcql) $ 

(C61)  d4q2 ; sada* (dttq2+dcq2) $ 

(C62)  d4q3 : sada* (dttq3+dcq3) $ 

(C63)  d4q4 : sada* (dttq4+dcq4) $ 

(C64)  d4q5;sada*dcq5$ 

(C65)  d5ql:sada* (dttql-dcql) $ 

(C66)  d5q2:sada*(dttq2-dcq2) $ 

(C67)  d5q3:sada*(dttq3-dcq3) $ 

(C68)  d5q4:sada*(dttq4-dcq4) $ 

(C69)  d5q5:-d4q5$ 

(C70)  a411:ev4+ql*d4ql$ 

(C71)  a511;ev5+ql*d5ql$ 

(C72)  aml[l,l] :cg2*a411+cg3*a511$ 

(C73)  aml[l,2]; (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 
(C74)  aml[l,3]: (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
(C75)  ainl[l,4];  (cgl*dlq4+cg2*d4q4+cg3*d5q4)  *ql$ 
(C76)  aml[l,5]: (cg2*d4q5+cg3*d5q5) *ql$ 

(C77)  rcaxt:rc*axt$ 

(C78)  ev4ax: ev4*axt$ 

(C79)  ev5ax: ev5*axt$ 

(C80)  coel:q2+rcaxt$ 

(C81)  coe:q2-rcaxt$ 

(C82)  al21:q2*dlql$ 

(C83 )  a4 2 1 : ev4ax*drcql+coel*d4ql$ 

(C84)  a521; -ev5ax*drcql+coe*d5ql$ 

(C85)  aml[2,l] :cgl*al21+cg2*a421+cg3*a521$ 

(C86)  al22 ;q2*dlq2+evl$ 

(C87)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C88)  a522 ;ev5-ev5ax*drcq2+coe*d5q2$ 

(C89)  ami [2, 2] :cgl*al22+cg2*a422+cg3*a522$ 

(C90)  al23:q2*dlq3$ 

(C91)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C92)  a523 : -ev5ax*drcq3+coe*d5q3$ 

(C93)  aml[2,3] : cgl*al23+cg2*a423+cg3*a523$ 

(C94)  al24;q2*dlq4$ 

(C95)  a424 ;ev4ax*drcq4+coel*d4q4$ 

(C96)  a524 ;-ev5ax*drcq4+coe*d5q4$ 

(C97)  ami [2, 4] ; cgl*al24+cg2*a424+cg3*a524$ 

(C98)  al25:q2*dlq5$ 

( C9 9 )  a4  2  5 : ev4ax*drcq5+coel*d4q5  $ 

(ClOO)  a525: -ev5ax*drcq5+coe*d5q5$ 

(ClOl)  aml[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
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(C102) 

(C103) 

(C104) 

(C105) 

(C106) 

(C107) 

(C108) 

(C109) 

(Clio) 

(Clll) 

(C112) 

(C113) 

(C114) 

(C115) 

(C116) 

(C117) 

(C118) 

(C119) 

(C120) 

(C121) 

(C122) 

(C123) 

(C124) 

(C125) 

(C126) 

(C127) 

(C128) 

(C129) 

(C130) 

(C131) 

(C132) 

(C133) 

(C134) 

(C135) 

(C136) 

(C137) 

(C138) 

(C139) 

(C140) 

(C141) 

(C142) 

(C143) 

(C144) 

(C145) 

(C146) 

(C147) 

(C148) 

(C149) 

(C150) 

(C151) 

(C152) 


rcayt:rc*ayt$ 
ev4ay ; ev4  *ayt $ 
ev5ay : ev5*ayt$ 
coel : q3+rcayt$ 
coe:q3-rcayt$ 
al31:q3*dlql$ 

a431: ev4ay*drcql+coel*d4ql$ 

a531: -ev5ay*drcql+coe*d5ql$ 

ami [3 , 1] :cgl*al31+cg2*a431+cg3*a531$ 

al32:q3*dlq2$ 

a432 : ev4ay*drcq2+coel*d4q2$ 

a532 : -ev5ay*drcq2+coe*d5q2$ 

aml[3 ,2] : cgl*al32+cg2*a432+cg3*a532$ 

al33 : q3*dlq3+evl$ 

a433 : ev4+ev4ay*drcq3+coel*d4q3$ 

a533 : ev5~ev5ay*drcq3+coe*d5q3$ 

aml[3,3] : cgl*al33+cg2*a433+cg3*a533$ 

al34:q3*dlq4$ 

a434 : ev4ay*drcq4+coel*d4q4$ 

a534 ; -ev5ay*drcq4+coe*d5q4$ 

ami [3,4]: cgl*al34+cg2*a434+cg3*a534$ 

al35:q3*dlq5$ 

a435: ev4ay*drcq5+coel*d4q5$ 

a535: -ev5ay*drcq5+coe*d5q5$ 

ami [3 , 5] : cgl*al35+cg2*a435+cg3*a535$ 

rca2t:rc*azt$ 

ev4az : ev4*azt$ 

ev5az ; ev5*azt$ 

coel : q4+rcazt$ 

coe:q4-rcazt$ 

al41:q4*dlql$ 

a441: ev4az*drcql+coel*d4ql$ 

a541: -ev5az*drcql+coe*d5ql$ 

aml[4 , 1] : cgl*al41+cg2*a441+cg3*a541$ 

al42:q4*dlq2$ 

a442 : ev4az*drcq2+coel*d4q2$ 

a542 : -ev5az*drcq2+coe*d5q2$ 

aml[4 ,2] :cgl*al42+cg2*a442+cg3*a542$ 

al43:q4*dlq3$ 

a443 : ev4az*drcq3+coel*d4q3$ 

a543 : -ev5az*drcq3+coe*d5q3$ 

ami [4, 3] :cgl*al43+cg2*a443+cg3*a543$ 

al44 :q4*dlq4+evl$ 

a444 :ev4+ev4az*drcq4+coel*d4q4$ 

a544 : ev5-ev5az*drcq4+coe*d5q4$ 

aml[4 , 4] :cgl*al44+cg2*a444+cg3*a544$ 

al45:q4*dlq5$ 

a445: ev4az*drcq5+coel*d4q5$ 

a545 : -ev5az*drcq5+coe*d5q5$ 

ami [4 , 5] : cgl*al45+cg2*a445+cg3*a545$ 

rctt:rc*tt$ 
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(C153)  Coe:0.5*(q2**2+q3**2+q4**2)*q6$ 
(C154)  rt:rc*dttql+tt*drcql$ 

(C155)  al51: 2*coe*dlql$ 

(C156)  a451:ev4* (depql+rt)  +  (pp+rctt)  *d4ql$ 
(C157)  a551:ev5* (depql-rt) + (pp-rctt) *d5ql$ 
(C158)  aml[5,l] :cgl*al51+cg2*a451+cg3*a551$ 
(C159)  rt:rc*dttq2+tt*drcq2$ 

(C160)  al52:coe*dlq2-dlql*q2$ 

(C161)  a452 :ev4* (depq2+rt) +(pp+rctt) *d4q2$ 
(C162)  a552:ev5*(depq2-rt)+ (pp-rctt) *d5q2$ 
(C163)  aml[5,2] :cgl*al52+cg2*a452+cg3*a552$ 
(C164)  rt:rc*dttq3+tt*drcq3$ 

(C165)  al53:coe*dlq3-dlql*q3$ 

(C166)  a453:ev4*(depq3+rt)+(pp+rctt) *d4q3$ 
(C167)  a553:ev5*(depq3-rt)+ (pp-rctt) *d5q3$ 
(C168)  aml[5,3] :cgl*al53+cg2*a453+cg3*a553$ 
(C169)  rt:rc*dttq4+tt*drcg4$ 

(C170)  al54:coe*dlq4-dlql*q4$ 

(C171)  a454:ev4*(depq4+rt)+(pp+rctt) *d4q4$ 
(C172)  a554;ev5*(depq4-rt)+ (pp-rctt) *d5q4$ 
(C173)  ami [5, 4] : cgl*al54+cg2*a454+cg3*a554$ 
(C174)  rt:tt*drcq5$ 

(C175)  al55;coe*dlq5$ 

(C176 )  a455 : ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
(C177 )  a555 : ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
(C178)  aml[5,5] :cgl*al55+cg2*a455+cg3*a555$ 
(C179)  ql:ql$ 

(C180)  q2:q2$ 

(C181)  q3:q3$ 

(C182)  q4:-q4$ 

(C183)  q5:q5$ 

(C184)  sign:l$ 

(C185)  cggl: (gam-1) /gam$ 

(C186)  cgg2 : 1/ (2*gam) $ 

(C187)  sada:sqrt(xix**2+xiy**2+xiz**2) $ 
(C188)  axt:xix/sada$ 

(C189)  ayt:xiy/sada$ 

(C190)  azt:xiz/sada$ 

(C191)  rqrq: q2**2+q3**2+q4**2$ 

(C192)  q6:l/ql$ 

(C193)  pr: (gam-1) *(q5-0.5*rqrq*q6)  $ 

(C194)  prgam:pr*gam$ 

(C195)  pp;q5+pr$ 

(C196)  c:sqrt(prgam*q6) $ 

(C197)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

(C198)  rc:ql*c$ 

(C199)  csad:c*sada$ 

(C200)  el:tt*sada$ 

(C201)  e4:el+csad$ 

(C202)  e5;el-csad$ 

(C203)  evl:0.0$ 
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(C204) 

(C205) 

(C206) 

(C207) 

(C208) 

(C209) 

(C210) 

(C211) 

(C212) 

(C213) 

(C214) 

(C215) 

(C216) 

(C217) 

(C218) 

(C219) 

(C220) 

(C221) 

(C222) 

(C223) 

(C224) 

(C225) 

(C226) 

(C227) 

(C228) 

(C229) 

(C230) 

(C231) 

(C232) 

(C233) 

(C234) 

(C235) 

(C236) 

(C237) 

(C238) 

(C239) 

(C240) 

(C241) 

(C242) 

(C243) 

(C244) 

(C245) 

(C246) 

(C247) 

(C248) 

[0,0,0 

(C249) 

(C250) 

(C251) 

(C252) 

(C253) 


ev4:0.0$ 
ev5: 0. 0$ 
cgl; 0. 0$ 
cg2:0.0$ 
cg3 ; 0. 0$ 
dlql:-evl*q6$ 
dlq2 :xix*q6$ 
dlq3 :xiy*q6$ 
dlq4 :xiz*q6$ 
dlq5: 0. 0$ 

coe:gain*  (gam-l)  /  (2*rc)  $ 

gmlqS: (gam-1) *q6$ 

drcql:coe*q5$ 

drcq2:-coe*q2$ 

drcq3 : -coe*q3$ 

drcq4 : -coe*q4$ 

drcq5:coe*ql$ 

dcql; (drcql-c) *q6$ 

dcq2 :drcq2*q6$ 

dcq3 :drcq3*q6$ 

dcq4 :drcq4*q6$ 

dcq5 : drcq5*q6$ 

depql : 0 . 5*gmlq6*rqrq*q6$ 

depq2 ; -q2*gmlq6$ 

depq3 : -q3*gmlq6$ 

depq4 : -q4 *gmlq6 $ 

depq5 : gam$ 

dttql:-tt*q6$ 

dttq2 : axt *q6  $ 

dttq3 :ayt*q6$ 

dttq4 :azt*q6$ 

dttq5: 0. 0$ 

d4ql: sada* (dttql+dcql) $ 
d4q2 : sada* (dttq2+dcq2) $ 
d4q3 : sada* (dttq3+dcq3) $ 
d4q4 : sada* (dttq4+dcq4) $ 
d4q5 : sada*dcq5$ 
d5ql; sada* (dttql-dcql) $ 
d5q2 : sada* (dttq2-dcq2 ) $ 
d5q3 ; sada* (dttq3-dcq3 ) $ 
d5q4 ; sada* ( dttq4 -dcq4 ) $ 
d5q5:-d4q5$ 
a411 ; ev4+ql*d4ql$ 
a511 : ev5+ql*d5ql$ 

am2:matrix( [0,0,0,0,0],[0,0,0,0,0],  [0,0, 0,0,0], [0,0, 0,0,0], 

0,0])$ 

am2[l,l] :cg2*a411+cg3*a511$ 
am2[l,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 
am2[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
am2[l,4] : (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
am2[l,5] : (cg2*d4q5+cg3*d5q5) *ql$ 
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(C254) 

(C255) 

(C256) 

(C257) 

(C258) 

(C259) 

(C260) 

(C261) 

(C262) 

(C263) 

(C264) 

(C265) 

(C266) 

(C267) 

(C268) 

(C269) 

(C270) 

(C271) 

(C272) 

(C273) 

(C274) 

(C275) 

(C276) 

(C277) 

(C278) 

(C279) 

(C280) 

(C281) 

(C282) 

(C283) 

(C284) 

(C285) 

(C286) 

(C287) 

(C288) 

(C289) 

(C290) 

(C291) 

(C292) 

(C293) 

(C294) 

(C295) 

(C296) 

(C297) 

(C298) 

(C299) 

(C300) 

(C301) 

(C302) 

(C303) 

(C304) 


rcaxt : rc*axt$ 

ev4ax:ev4*axt$ 

ev5ax;ev5*axt$ 

coel : q2+rcaxt$ 

coe:q2-rcaxt$ 

al21;q2*dlql$ 

a421:ev4ax*drcql+coel*d4ql$ 

a521 ; -ev5ax*drcql+coe*d5ql$ 

am2 [2 , 1] :cgl*al21+cg2*a421+cg3*a521$ 

al22 :q2*dlq2+evl$ 

a422 : ev4+ev4ax*drcq2+coel*d4q2$ 

a522 : ev5-ev5ax*drcq2+coe*d5q2$ 

am2 [2,2]: cgl*al22+cg2*a422+cg3*a522$ 

al23:q2*dlq3$ 

a423 : ev4ax*drcq3+coel*d4q3$ 

a523 : -ev5ax*drcq3+coe*d5q3$ 

am2 [2 ,3] :cgl*al23+cg2*a423+cg3*a523$ 

al24:q2*dlq4$ 

a424 : ev4ax*drcq4+coel*d4q4$ 
a524 : -ev5ax*drcq4+coe*d5q4$ 
am2[2,4] :cgl*al24+cg2*a424+cg3*a524$ 
al25:q2*dlq5$ 

a425 ; ev4ax*drcq5+coel*d4q5$ 

a525 : -ev5ax*drcq5+coe*d5q5$ 

aia2[2,5]  : cgl*al25+cg2*a425+cg3*a525$ 

rcayt:rc*ayt$ 

ev4ay : ev4  *ay t$ 

ev5ay ; ev5*ayt$ 

coel : q3+rcayt$ 

coe:q3-rcayt$ 

al31:q3*dlql$ 

a431 : ev4ay*drcql+coel*d4ql$ 
a531: -ev5ay*drcql+coe*d5ql$ 
am2[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
al32:q3*dlq2$ 

a432 : ev4ay*drcq2+coel*d4q2$ 

a532 :  -•ev5ay*drcq2+coe*d5q2$ 

am2[3 ,2] :cgl*al32+cg2*a432+cg3*a532$ 

al33 : q3*dlq3+evl$ 

a433 : ev4+ev4ay*drcq3+coel*d4q3$ 

a533 : ev5-ev5ay*drcq3+coe*d5q3$ 

am2 [3 , 3 ] : cgl*al33+cg2*a433+cg3*a533$ 

al34;q3*dlq4$ 

a434 : ev4ay*drcq4+coel*d4q4$ 

a534 : -ev5ay*drcq4+coe*d5q4  $ 

am2 [3 ,4] :cgl*al34+cg2*a434+cg3*a534$ 

al35:q3*dlq5$ 

a435 : ev4ay*drcq5+coel*d4q5$ 

a535 ; -ev5ay*drcq5+coe*d5q5$ 

am2 [3,5] :cgl*al35+cg2*a435+cg3*a535$ 

rcazt;rc*azt$ 
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(C305)  ev4az:ev4*azt$ 

(C306)  ev5az:ev5*azt$ 

(C307)  coel:q4+rcazt$ 

(C308)  coe:q4-rcazt$ 

(C309)  al41:q4*dlql$ 

(C310)  a441:ev4az*drcql+coel*d4ql$ 

(C311)  a541: -ev5az*drcql+coe*d5ql$ 

(C312)  am2[4,l] :cgl*al41+cg2*a441+cg3*a541$ 
(C313)  al42:q4*dlq2$ 

(C314)  a442: ev4az*drcq2+coel*d4q2$ 

(C315)  a542: -ev5az*drcq2+coe*d5q2$ 

(C316)  am2[4,2] ;cgl*al42+cg2*a442+cg3*a542$ 
(C317)  al43:q4*dlq3$ 

(C318)  a443 :ev4az*drcq3+coel*d4q3$ 

(C319)  a543 : -ev5az*drcq3+coe*d5q3$ 

(C320)  am2[4,3]  :cgl*al43+cg2*a4434-cg3*a543$ 
(C321)  al44:q4*dlq4+evl$ 

(C322 )  a444 ; ev4+ev4az*drcq4+coel*d4q4$ 

(C323 )  a544 : ev5-ev5az*drcq4+coe*d5q4$ 

(C324)  am2[4,4] :cgl*al44+cg2*a444+cg3*a544$ 
(C325)  al45;q4*dlq5$ 

(C326)  a445;ev4az*drcq5+coel*d4q5$ 

(C327)  a545: -ev5az*drcq5+coe*d5q5$ 

(C328)  am2[4,5] :cgl*al45+cg2*a445+cg3*a545$ 
(C329)  rctt:rc*tt$ 

(C330)  coe:0.5* (q2**2+q3**2+q4**2 )  *q6$ 
(C331)  rt:rc*dttql+tt*drcql$ 

(C332)  al51:2*coe*dlql$ 

{C333)  a451:ev4* (depql+rt)  +  (pp+rctt)  *d4ql$ 
(C334)  a551:ev5*(depql-rt)+(pp-rctt) *d5ql$ 
(C335)  ain2[5,l]  :cgl*al51+cg2*a451+cg3*a551$ 
(C336)  rt:rc*dttq2+tt*drcq2$ 

(C337)  al52 : coe*dlq2-dlql*q2$ 

(C338)  a452 : ev4* (depq2+rt) +(pp+rctt) *d4q2$ 
(C339)  a552:ev5*(depq2-rt)  +  (pp-rctt)  *d5q2$ 
(C340)  am2 [5,2] : cgl*al52+cg2*a452+cg3*a552$ 
(C341)  rt:rc*dttq3+tt*drcq3$ 

(C342)  al53 : coe*dlq3-dlql*q3$ 

(C343)  a453:ev4*(depq3+rt)+(pp+rctt) *d4q3$ 
(C344)  a553 : ev5* (depq3-rt) +(pp-rctt)  *d5q3$ 
(C345)  am2[5,3] :cgl*al53+cg2*a453+cg3*a553$ 
(C346)  rt:rc*dttq4+tt*drcq4$ 

(C347)  al54 ; coe*dlq4-dlql*q4$ 

(C348)  a454 ; ev4* (depq4+rt) + (pp+rctt)  *d4q4$ 
(C349)  a554:ev5* (depq4-rt) +(pp-rctt) *d5q4$ 
(C350)  am2[5,4] :cgl*al54+cg2*a454+cg3*a554$ 
(C351)  rt:tt*drcq5$ 

(C352)  al55:coe*dlq5$ 

(C353)  a455:ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
(C354)  a555:ev5* (depq5-rt)  +  (pp-rctt)  *d5q5$ 
(C355)  am2[5,5] ;cgl*al55+cg2*a455+cg3*a555$ 


Page  7 


AMSUP 


(C356)  diff :aial.in-m.ainl$ 
(C357)  diff :ratexpand( diff ) ; 


(D357) 


(C358)  closef ile (Amsup) $ 

i 


[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 
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(C3)  diff  :inatrix(  [0, 0, 0, 0, 0]  ,[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[ 

0,0, 0,0,0])$ 

(C4)  m:matrix( [1,0, 0,0,0] ,[0,1,0,0,0],[0,0,1,0,0],[0,0,0,-1,0],[0, 

0,0, 0,1])$ 

(C5)  sign:l$ 

(C6)  cggl: (gam-l) /gam$ 

(C7)  cgg2 ;  1/ (2*gani)  $ 

(C8)  xiy:0.0$ 

(C9)  xiz:0.0$ 

(CIO)  sadaisqrt (xix**2+xiy**2+xiz**2)  $ 

(Cll)  axt;xix/sada$ 

(C12)  ayt:xiy/sada$ 

(C13)  azt:xiz/sada$ 

(C14)  rgrq:q2**2+q3**2+g4**2$ 

(C15)  q6:l/ql$ 

(C16)  pr; (gam-1) * (q5-0.5*rqrq*q6) $ 

(C17)  prgam;pr*gam$ 

(C18)  pp;q5+pr$ 

(C19)  c: sqrt (prgam*q6) $ 

(C20)  tt; (q2*axt+q3*ayt+q4*azt) *q6$ 

(C21)  rc;ql*c$ 

(C22)  csad:c*sada$ 

(C23)  el:tt*sada$ 

(C24)  e4;el+csad$ 

(C25)  e5:el-csad$ 

(C26)  evl:0.0$ 

(C27)  ev4;0.0$ 

(C28)  ev5:0.5*(e5+sign*abs(e5) )$ 

(C29)  cgl;0.0$ 

(C30)  cg2:0.0$ 

(C31)  cg3:cgg2$ 

(C32)  dlql:-evl*q6$ 

(C33)  dlq2:xix*q6$ 

(C34)  dlq3:xiy*q6$ 

(C35)  dlq4:xiz*q6$ 

(C36)  dlq5:0.0$ 

(C37)  coe: gam* (gam-1) / (2*rc)  $ 

(C38)  gmlq6: (gam-1) *q6$ 

(C39)  drcql:coe*q5$ 

(C40)  drcq2 : -coe*q2$ 

(C41)  drcq3 : -coe*q3$ 

(C42)  drcq4 : -coe*q4$ 

(C43)  drcqS: coe*ql$ 

(C44)  dcql: (drcql-c) *q6$ 

(C45)  dcq2:drcq2*q6$ 

(C46)  dcq3 :drcq3*q6$ 

(C47)  dcq4 :drcq4*q6$ 

(C48)  dcq5:drcq5*q6$ 

(C49)  depql: 0. 5*gmlq6*rqrg*q6$ 

(C50)  depq2 : -q2*gmlq6$ 

(C51)  depq3 : -q3*gmlq6$ 
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(C52)  depq4 : -q4*ginlq6$ 

(C53)  depq5:gain$ 

(C54)  dttql:-tt*q6$ 

(C55)  dttq2:axt*q6$ 

(C56)  dttq3:ayt*q6$ 

(C57)  dttq4:azt*q6$ 

(C58)  dttq5:0.0$ 

(C59)  d4ql:sada* (dttql+dcql) $ 

(C60)  d4q2:sada* (dttq2+dcq2) $ 

(C61)  d4q3;sada*(dttq3+dcq3) $ 

(C62)  d4q4:sada* (dttq4+dcq4) $ 

(C63)  d4q5:sada*dcq5$ 

(C64)  d5ql:sada* (dttql-dcql) $ 

(C65)  d5q2:sada*(dttq2“dcq2) $ 

(C66)  d5q3 :sada* (dttq3-dcq3) $ 

(C67)  d5q4;sada*(dttq4-dcq4) $ 

(C68)  d5q5:~d4q5$ 

(C69)  a411:ev4+ql*d4ql$ 

(C70)  a511:ev5+ql*d5ql$ 

(C71)  apl:matrix( [0,0, 0,0,0] ,[0,0, 0,0,0], [0,0, 0,0,0], [0,0,0 

0,0, 0,0,0])$ 

(C72)  ap2:matrix( [0,0, 0,0,0] ,[0,0, 0,0,0], [0,0, 0,0,0], [0,0,0 

0,0, 0,0,0])$ 

(C73)  apl[l,l] :cg2*a411+cg3*a511$ 

(C74)  apl[l,2]: (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 

(C75)  apl[l,3]: (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 

(C76)  apl[l,4] ; (Cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 

(C77)  apl[l,5]: (cg2*d4q5+cg3*d5q5) *ql$ 

(C78)  rcaxt:rc*axt$ 

(C79)  ev4ax: ev4*axt$ 

(C80)  ev5ax: ev5*axt$ 

(C81)  coel:q2+rcaxt$ 

(C82)  coe;q2-rcaxt$ 

(C83)  al21:q2*dlql$ 

(C84)  a421;ev4ax*drcql+coel*d4ql$ 

(C85)  a521: -ev5ax*drcql+coe*d5ql$ 

(C86)  apl[2,l] :cgl*al21+cg2*a421+cg3*a521$ 

(C87)  al22:q2*dlq2+evl$ 

(C88)  a422 ;ev4+ev4ax*drcq2+coel*d4q2$ 

(C89)  a522 :ev5-ev5ax*drcg2+coe*d5q2$ 

(C90)  apl[2,2] ;cgl*al22+cg2*a422+cg3*a522$ 

(C91)  al23:q2*dlq3$ 

(C92)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C93)  a523 ; -ev5ax*drcq3+coe*d5q3$ 

(C94)  apl[2,3] :cgl*al23+cg2*a423+cg3*a523$ 

(C95)  al24:q2*dlq4$ 

( C96 )  a424 : ev4ax*drcq4+coel*d4q4 $ 

(C97)  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C98)  apl[2,4] : cgl*al24+cg2*a424+cg3*a524$ 

(C99)  al25:q2*dlq5$ 

(ClOO)  a425 ; ev4ax*drcq5+coel*d4q5$ 


0,0], [ 
0,0], [ 
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(ClOl) 

(C102) 

(C103) 

(C104) 

(C105) 

(C106) 

(C107) 

(C108) 

(C109) 

(Clio) 

(Clll) 

(C112) 

(C113) 

(C114) 

(C115) 

(C116) 

(C117) 

(C118) 

(C119) 

(C120) 

(C121) 

(C122) 

(C123) 

(C124) 

(C125) 

(C126) 

(C127) 

(C128) 

(C129) 

(C130) 

(C131) 

(C132) 

(C133) 

(C134) 

(C135) 

(C136) 

(C137) 

(C138) 

(C139) 

(C140) 

(C141) 

(C142) 

(C143) 

(C144) 

(C145) 

(C146) 

(C147) 

(C148) 

(C149) 

(C150) 

(C151) 


a525 : -ev5ax*drcq5+coe*d5q5$ 

apl[2,5] :cgl*al25+cg2*a425+cg3*a525$ 

rcayt:rc*ayt$ 

ev4ay :  ev4  *ayt$ 

ev5ay : ev5*ayt$ 

coel:q3+rcayt$ 

coe:q3-rcayt$ 

al31;q3*dlql$ 

a431: ev4ay*drcql+coel*d4ql$ 
a531; -ev5ay*drcql+coe*d5ql$ 
apl[3,13 :cgl*al31+cg2*a431+cg3*a531$ 
al32 :q3*dlq2$ 

a432 ; ev4ay*drcq2+coel*d4q2$ 

a532 : -ev5ay*drcq2+coe*d5q2$ 

apl[3 , 2] :cgl*al32+cg2*a432+cg3*a532$ 

al33;q3*dlq3+evl$ 

a433 ;ev4+ev4ay*drcq3+coel*d4q3$ 

a533 ;ev5-ev5ay*drcq3+coe*d5q3$ 

apl[3,3] :cgl*al33+cg2*a433+cg3*a533$ 

al34;q3*dlq4$ 

a434 :ev4ay*drcq4+coel*d4q4$ 
a534 : -ev5ay*drcq4+coe*d5q4$ 
apl[3,4] :cgl*al34+cg2*a434+cg3*a534$ 
al35:q3*dlq5$ 

a435; ev4ay*drcq5+coel*d4q5$ 

a535 : -ev5ay*drcq5+coe*d5q5$ 

apl[3,5] :cgl*al35+cg2*a435+cg3*a535$ 

rcazt:rc*azt$ 

ev4az;ev4*azt$ 

ev5az : ev5*azt$ 

coel ; q4+rcazt$ 

coe:q4-rcazt$ 

al41;q4*dlql$ 

a441: ev4az*drcql+coel*d4ql$ 
a541: -ev5az*drcql+coe*d5ql$ 
apl[4, 1] :cgl*al41+cg2*a441+cg3*a541$ 
al42 :q4*dlq2$ 

a442 : ev4az*drcq2+coel*d4q2$ 
a542 :  -•ev5az*drcq2+coe*d5q2$ 
apl[4,2] :cgl*al42+cg2*a442+cg3*a542$ 
al43;q4*dlq3$ 

a443 : ev4az*drcq3+coel*d4q3$ 

a543 ; -ev5az*drcq3+coe*d5q3$ 

apl [4,3]: cgl*al43+cg2*a443+cg3*a543$ 

al44 ; q4*dlq4+evl$ 

a444 : ev4+ev4az*drcq4+coel*d4q4$ 

a544 : ev5-ev5az*drcq4+coe*d5q4$ 

apl [4 , 4 ] : cgl*al44+cg2*a444+cg3*a544$ 

al45:q4*dlq5$ 

a445 : ev4az*drcq5+coel*d4q5$ 
a545: -ev5az*drcq5+coe*d5q5$ 
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(C152) 

(C153) 

(C154) 

(C155) 

(C156) 

(C157) 

(C158) 

(C159) 

(C160) 

(C161) 

(C162) 

(C163) 

(C164) 

(C165) 

(C166) 

(C167) 

(C168) 

(C169) 

(C170) 

(C171) 

(C172) 

(C173) 

(C174) 

(C175) 

(C176) 

(C177) 

(C178) 

(C179) 

(C180) 

(C181) 

(C182) 

(C183) 

(C184) 

(C185) 

(C186) 

(C187) 

(C188) 

(C189) 

(C190) 

(C191) 

(C192) 

(C193) 

(C194) 

(C195) 

(C196) 

(C197) 

(C198) 

(C199) 

(C200) 

(C201) 

(C202) 


apl[4 , 5] :cgl*al45+cg2*a445+cg3*a545$ 
rctt:rc*tt$ 

coe:0.5* (q2**2+q3**2+q4**2) *q6$ 
rt : rc*dttql+tt*drcql$ 
al51: 2*coe*dlql$ 

a451; ev4* (depql+rt) +(pp+rctt)  *d4ql$ 

a551: ev5* (depql-rt) +(pp-rctt) *d5ql$ 

apl [5 , 1] : cgl*al51+cg2*a451+cg3*a551$ 

rt ; rc*dttq2+tt*drcq2  $ 

al52 : coe*dlq2-dlql*q2$ 

a452:ev4* (depq2+rt)  +  (pp+rctt)  *d4q2$ 

a552 ; ev5* (depq2“rt) + (pp-rctt) *d5q2$ 

apl [5 , 2 ] : cgl*al52+cg2*a452+cg3*a552$ 

rt : rc*dttq3+tt*drcq3  $ 

al53 : coe*dlq3-dlql*q3$ 

a 4  5 3 ; ev4  * ( depq3  +rt ) + ( pp+r ctt ) *d4  q3  $ 

a553:ev5* (depq3-rt)  +  (pp-rctt)  *d5q3$ 

apl[5,3] ;cgl*al53+cg2*a453+cg3*a553$ 

rt;rc*dttq4+tt*drcq4$ 

al54 : coe*dlq4-dlql*q4$ 

a454 :ev4* (depq4+rt) +(pp+rctt) *d4q4$ 

a554 : ev5* (depq4-rt) + (pp-rctt)  *d5q4$ 

apl [5 , 4 ] : cgl*al54+cg2*a454+cg3*a554$ 

rt:tt*drcq5$ 

al55 : coe*dlq5$ 

a455 : ev4* (depq5+rt) + (pp+r ctt) *d4q5$ 
a555: ev5* (depq5-rt) + (pp-rctt)  *d5q5$ 
apl [5,5] : cgl*al55+cg2*a455+cg3*a555$ 

ql:ql$ 
q2:q2$ 
q3 :q3$ 
q4:-q4$ 
q5:q5$ 
sign: 1$ 

cggl:  (gam-l)  /gain$ 
cgg2: 1/  (2*gain)  $ 

sada: sqrt (xix**2+xiy**2+xi2**2)  $ 

axt;xix/sada$ 

aYt:xiy/sada$ 

azt:xiz/sada$ 

rqrq:q2**2+q3**2+q4**2$ 

q6:l/ql$ 

pr: (gam-l) * (q5-0. 5*rqrq*q6) $ 

prgam : pr *gam$ 

pp:q5+pr$ 

c : sqrt (prgam*q6 )  $ 

tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

rc:ql*c$ 

csad: c*sada$ 

el:tt*sada$ 

e4 :el+csad$ 
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(C203) 

(C204) 

(C205) 

(C206) 

(C207) 

(C208) 

(C209) 

(C210) 

(C211) 

(C212) 

(C213) 

(C214) 

(C215) 

(C216) 

(C217) 

(C218) 

(C219) 

(C220) 

(C221) 

(C222) 

(C223) 

(C224) 

(C225) 

(C226) 

(C227) 

(C228) 

(C229) 

(C230) 

(C231) 

(C232) 

(C233) 

(C234) 

(C235) 

(C236) 

(C237) 

(C238) 

(C239) 

(C240) 

(C241) 

(C242) 

(C243) 

(C244) 

(C245) 

(C246) 

(C247) 

(C248) 

(C249) 

(C250) 

(C251) 

(C252) 

(C253) 


e5:el-csad$ 

evl:0.0$ 

ev4:0.0$ 

ev5:0.5* (e5+sign*abs (e5) )  $ 

cgl: 0. 0$ 

cg2:0.0$ 

cg3 ; cgg2  $ 

dlql; -evl*q6$ 

dlq2 :xix*q6$ 

dlq3 :xiy*q6$ 

dlq4:xiz*q6$ 

dlq5;0.0$ 

coergam* (gam-l) / (2*rc) $ 

gmlq6; (gam-l) *q6$ 

drcql:coe*q5$ 

drcq2:-coe*q2$ 

drcq3 :-coe*q3$ 

drcq4:-coe*q4$ 

drcq5:coe*ql$ 

dcql: (drcql-c) *q6$ 

dcq2;drcq2*q6$ 

dcq3 :drcq3*q6$ 

dcq4 : drcq4*q6$ 

dcq5 : drcq5*q6$ 

depql : 0 . 5*gmlq6*rqrq*q6$ 

depq2 : -q2  *gmlq6  $ 

depq3 : -q3  *gmlq6  $ 

depq4 : -q4*gmlq6$ 

depqS : gam$ 

dttql:-tt*q6$ 

dttq2 :axt*q6$ 

dttq3 :ayt*q6$ 

dttq4 :azt*q6$ 

dttq5:0. 0$ 

d4ql : sada* ( dttql+dcql ) $ 

d4q2 : sada* (dttq2+dcq2) $ 

d4q3 : sada* (dttq3+dcq3 ) $ 

d4q4 : sada* (dttq4+dcq4) $ 

d4q5 : sada*dcq5$ 

d5ql: sada* (dttql-dcql) $ 

d5q2 : sada* ( dttq2 -dcq2 ) $ 

d5q3 : sada* (dttq3-dcq3) $ 

d5q4 : sada* (dttq4-dcq4) $ 

d5q5 : -d4q5$ 

a411: ev4+ql*d4ql$ 

a511: ev5+ql*d5ql$ 

ap2[l,l] : cg2*a411+cg3*a511$ 

ap2 [1,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 

ap2[l,3] ; (cgl*dlq3+cg2*d4q3+cg3*d5g3) *ql$ 

ap2 [1, 4] : (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 

ap2 [1, 5] : (cg2*d4q5+cg3*d5q5) *ql$ 
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(C254)  rcaxt :rc*axt$ 

(C255)  ev4ax:ev4*axt$ 

(C256)  ev5ax:ev5*axt$ 

(C257)  coel:q2+rcaxt$ 

(C258)  coe :q2 -rcaxt $ 

(C259)  al21:q2*dlql$ 

(C260)  a421:ev4ax*drcql+coel*d4ql$ 

(C261)  a521; -ev5ax*drcql+coe*d5ql$ 

(C262)  ap2[2,l] : cgl*al21+cg2*a421+cg3*a521$ 
(C263)  al22:q2*dlq2+evl$ 

(C264)  a422 : ev4+ev4ax*drcq2+coel*d4q2$ 
(C265)  a522 : ev5-ev5ax*drcq2+coe*d5q2$ 

(C266)  ap2[2,2] : cgl*al22+cg2*a422+cg3*a522$ 
(C267)  al23:q2*dlq3$ 

(C268 )  a423 : ev4ax*drcq3+coel*d4q3 $ 

{C269)  a523: -ev5ax*drcq3+coe*d5q3$ 

(C270)  ap2[2,3] : cgl*al23+cg2*a423+cg3*a523$ 
(C271)  al24:q2*dlq4$ 

(C272 )  a424 : ev4ax*drcq4+coel*d4q4$ 

(C273)  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C274)  ap2[2,43 : cgl*al24+cg2*a424+cg3*a524$ 
(C275)  al25;q2*dlq5$ 

(C276)  a425: ev4ax*drcq5+coel*d4q5$ 

(C277)  a525: -ev5ax*drcq5+coe*d5q5$ 

(C278)  ap2[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
(C279)  rcayt:rc*ayt$ 

(C280)  ev4ay : ev4*ayt$ 

(C281)  ev5ay;ev5*ayt$ 

(C282}  coel : q3+rcayt$ 

(C283)  coe:q3-rcayt$ 

(C284)  al31:q3*dlql$ 

(C285)  a431:ev4ay*drcql+coel*d4ql$ 

(C286)  a531: -ev5ay*drcql+coe*d5ql$ 

(C287)  ap2[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
(C288)  al32:q3*dlq2$ 

(C289)  a432 : ev4ay*drcq2+coel*d4q2$ 

(C290)  a532 : -ev5ay*drcq2+coe*d5q2$ 

(C291)  ap2[3,2] ; cgl*al32+cg2*a432+cg3*a532$ 
(C292)  al33;q3*dlq3+evl$ 

(C293)  a433 : ev4+ev4ay*drcq3+coel*d4q3$ 

(C294 )  a533 ; ev5-ev5ay*drcq3+coe*d5q3 $ 

(C295)  ap2[3,3] : cgl*al33+cg2*a433+cg3*a533$ 
(C296)  al34;q3*dlq4$ 

(C297)  a434 :ev4ay*drcq4+coel*d4q4$ 

(C298)  a534 : -ev5ay*drcq4+coe*d5q4$ 

(C299)  ap2[3,4] : cgl*al34+cg2*a434+cg3*a534$ 
(C300)  al35:q3*dlq5$ 

(C301)  a435:ev4ay*drcq5+coel*d4q5$ 

(C302 )  a535 : -ev5ay*drcq5+coe*d5q5$ 

(C303)  ap2[3,5] : cgl*al35+cg2*a435+cg3*a535$ 
(C304)  rca2t:rc*azt$ 
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(C305)  ev4az:ev4*azt$ 

(C306)  evSaz ;ev5*azt$ 

(C307)  coel:q4+rcazt$ 

(C308)  coe:q4-rcazt$ 

(C309)  al41;q4*dlql$ 

(C310)  a441:ev4az*drcql+coel*d4ql$ 

(C311)  a541: -ev5az*drcql+coe*d5ql$ 

(C312)  ap2[4,l] :cgl*al41+cg2*a441+cg3*a541$ 
(C313)  al42:q4*dlq2$ 

(C314)  a442 : ev4az*drcq2+coel*d4q2$ 

(C315)  a542 : -ev5az*drcq2+coe*d5q2$ 

(C316)  ap2[4,2] :cgl*al42+cg2*a442+cg3*a542$ 
(C317)  al43:q4*dlq3$ 

(C318)  a443 : ev4az*drcq3+coel*d4q3$ 

(C319)  a543 : -ev5az*drcq3+coe*d5q3$ 

(C320)  ap2[4,3] :cgl*al43+cg2*a443+cg3*a543$ 
(C321)  al44:q4*dlq4+evl$ 

(C322 )  a444 : ev4+ev4az*drcq4+coel*d4q4$ 
(C323)  a544 :ev5-ev5az*drcq4+coe*d5q4$ 

(C324)  ap2[4,4] : cgl*al44+cg2*a444+cg3*a544$ 
(C325)  al45;q4*dlq5$ 

(C326)  a445:ev4az*drcq5+coel*d4q5$ 

(C327 )  a545 : -ev5az*drcq5+coe*d5q5$ 

(C328)  ap2[4,5] :cgl*al45+cg2*a445+cg3*a545$ 
(C329)  rctt:rc*tt$ 

(C330)  coe:0.5* (q2**2+q3**2+q4**2) *q6$ 
(C331)  rt:rc*dttql+tt*drcql$ 

(C332)  al51:2*coe*dlql$ 

(C333)  a451:ev4* (depql+rt) +(pp+rctt) *d4ql$ 
(C334)  a55l:ev5* (depql-rt) +{pp-rctt) *d5ql$ 
(C335)  ap2  [5,1] :  cgl*al5H-cg2*a451+cg3*a551$ 
(C336)  rt;rc*dttq2+tt*drcq2$ 

(C337)  al52 :coe*dlq2-dlql*q2$ 

(C338)  a452;ev4* (depq2+rt) +(pp+rctt) *d4q2$ 
(C339)  a552:ev5* (depq2-rt) +(pp-rctt) *d5q2$ 
(C340)  ap2[5,2] ;cgl*al52+cg2*a452+cg3*a552$ 
(C341)  rt:rc*dttq3+tt*drcq3$ 

(C342)  al53 :coe*dlq3-dlql*q3$ 

(C343)  a453 :ev4* (depq3+rt) +(pp+rctt) *d4q3$ 
(C344)  a553 :ev5* (depq3-rt) +(pp-rctt) *d5q3$ 
(C345)  ap2[5,3] :cgl*al53+cg2*a453+cg3*a553$ 
(C346)  rt:rc*dttq4+tt*drcq4$ 

(C347)  al54:coe*dlq4-dlql*q4$ 

(C348)  a454 :ev4* (depq4+rt) +(pp+rctt)  *d4q4$ 
(C349)  a554 : ev5* (depq4-rt) + (pp-rctt) *d5q4$ 
(C350)  ap2[5,4] : cgl*al54+cg2*a454+cg3*a554$ 
(C351)  rt;tt*drcq5$ 

(C352)  al55:coe*dlq5$ 

(C353)  a455:ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
(C354)  a555:ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
(C355)  ap2 [5,5] : cgl*al55+cg2*a455+cg3*a555$ 
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(C356)  diff :apl.in-m.ap2$ 
(C357)  diff ;ratexpand (diff) ; 


(D357) 


(C358)  closefile(Amsub) $ 


[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

3 

t 

3 

[ 

0 

0 

0 

0 

0 

3 

[ 

3 

[ 

0 

0 

0 

0 

0 

3 
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(C3)  bpl:inatrix([0,0,0,0,0] ,  [0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 

,0,0,0,03)$ 

( C4 )  bp2 : matrix ([0,0, 0,0,0] , [0,0, 0,0,0],  [0,0, 0,0,0], [0,0, 0,0,0],  [0 

,0,0, 0,0])$ 

(C5)  dif f : matrix ( [0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[ 

0,0, 0,0,0])$ 

(C6)  m; matrix ( [1,0,0,0,0],[0,1,0,0,0],[0,0,1,0,0],[0,0,0,-1,0],[0, 

0,0,0,!])$ 

(C7)  sign:l$ 

(C8)  cggl: (gam-1) /gam$ 

(C9)  cgg2:l/ (2*gam) $ 

(CIO)  etx;0.0$ 

(Cll)  sadatsqrt (etx**2+ety**2+etz**2)  $ 

(C12)  axt:etx/sada$ 

(C13)  ayt:ety/sada$ 

(C14)  azt:etz/sada$ 

(CIS)  rqrq:q2**2+q3**2+g4**2$ 

(C16)  q6:l/ql$ 

(C17)  pr: (gam-1) *(q5-0.5*rqrq*q6)  $ 

(C18)  prgam:pr*gam$ 

(C19)  pp;q5+pr$ 

(C20)  c:sqrt (prgam*q6) $ 

(C21)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

(C22)  rc:ql*c$ 

(C23)  csad:c*sada$ 

(C24)  el;tt*sada$ 

(C25)  e4:el+csad$ 

(C26)  e5:el-csad$ 

(C27)  evl:0.5*(el+sign*abs(el) )$ 

(C28)  ev4 : 0. 5* (e4+sign*abs (e4) ) $ 

(C29)  ev5: 0. 5* (e5+sign*abs (eS) ) $ 

(C30)  cgl:cggl$ 

(C31)  cg2:cgg2$ 

(C32)  cg3:cgg2$ 

(C33)  dlql:-evl*q6$ 

(C34)  dlq2;etx*q6$ 

(C35)  dlq3:ety*q6$ 

(C36)  dlq4;etz*q6$ 

(C37)  dlq5:0.0$ 

(C38)  coe;gam* (gam-1) / (2*rc) $ 

(C39)  gmlq6: (gam-1) *q6$ 

(C40)  drcql: coe*q5$ 

(C41)  drcq2 : -coe*q2$ 

(C42)  drcq3 : -coe*q3$ 

(C43)  drcq4 ; -coe*q4$ 

(C44)  drcqS: coe*ql$ 

(C45)  dcql: (drcql-c) *q6$ 

(C46)  dcq2 :drcq2*q6$ 

(C47)  dcq3:drcq3*q6$ 

(C48)  dcq4 :drcq4*q6$ 

(C49)  dcq5:drcq5*q6$ 


Page  1 


BPSUP 


(C50)  depql: 0.5*gmlq6*rqrq*q6$ 

(C51)  depq2:-q2*gmlq6$ 

( C52 )  depq3 : -q3  *gmlq6  $ 

(C53)  depq4:-q4*gmlq6$ 

(C54)  depq5;gain$ 

(C55)  dttql:-tt*q6$ 

(C56)  dttq2 :axt*q6$ 

(C57)  dttq3 ;ayt*q6$ 

(C58)  dttq4 :azt*q6$ 

(C59)  dttq5;0.0$ 

(C60)  d4ql:sada* (dttql+dcql) $ 

(C61)  d4q2 ; sada* (dttq2+dcq2) $ 

(C62)  d4q3;sada*(dttq3+dcq3) $ 

(C63)  d4q4:sada* (dttq4+dcq4) $ 

(C64)  d4q5:sada*dcq5$ 

(C65)  d5ql:sada*(dttql-dcql) $ 

(C66)  d5q2 :sada* (dttq2-dcq2) $ 

(C67)  d5q3:sada*(dttq3-dcq3)$ 

(C68)  d5q4;sada*(dttq4-dcq4)$ 

(C69)  d5q5;-d4q5$ 

(C70)  a411:ev4+ql*d4ql$ 

(C71)  a511:ev5+ql*d5ql$ 

(C72)  bpl[l, 1] :cg2*a411+cg3*a511$ 

(C73)  bpl[l,2]: (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 
(C74)  bpl[l,3]: (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
(C75)  bpl[l,4] : (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C76)  bpl[l,5]: (cg2*d4q5+cg3*d5q5)*ql$ 

(C77)  rcaxt:rc*axt$ 

(C78)  ev4ax: ev4*axt$ 

(C79)  ev5ax: ev5*axt$ 

(C80)  coel:q2+rcaxt$ 

(C81)  coe;q2-rcaxt$ 

(C82)  al21:q2*dlql$ 

(C83)  a421; ev4ax*drcql+coel*d4ql$ 

( C84 )  a52 1 : -ev5ax*drcql+coe*d5ql$ 

(C85)  bpl[2,l] ;cgl*al21+cg2*a421+cg3*a521$ 

(C86)  al22:q2*dlq2+evl$ 

(C87)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C88)  a522 :ev5-ev5ax*drcq2+coe*d5q2$ 

(C89)  bpl[2,2] :cgl*al22+cg2*a422+cg3*a522$ 

(C90)  al23:q2*dlq3$ 

(C91)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C92)  a523 : -ev5ax*drcg3+coe*d5q3$ 

(C93)  bpl[2,3] :cgl*al23+cg2*a423+cg3*a523$ 

(C94)  al24:q2*dlq4$ 

(C95)  a424 :ev4ax*drcq4+coel*d4q4$ 

(C96)  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C97)  bpl[2,4] :cgl*al24+cg2*a424+cg3*a524$ 

(C98)  al25:q2*dlq5$ 

(C99)  a425 : ev4ax*drcq5+coel*d4q5$ 

(ClOO)  a525 : -ev5ax*drcq5+coe*d5q5$ 
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(ClOl)  bpl[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
(C102)  rcayt:rc*ayt$ 

(C103)  ev4ay:ev4*ayt$ 

(C104)  ev5ay:ev5*ayt$ 

(C105)  coel;q3+rcayt$ 

(C106)  coe:q3-rcayt$ 

(C107)  al31:q3*dlql$ 

(C108)  a431:ev4ay*drcql+coel*d4ql$ 

(C109)  a531: -ev5ay*drcql+coe*d5ql$ 

(Clio)  bpl[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
(Clll)  al32:q3*dlq2$ 

(C112 )  a432 : ev4ay*drcq2+coel*d4q2$ 

(C113 )  a532 ; -ev5ay*drcq2+coe*d5q2$ 

(C114)  bpl[3,2] ;cgl*al32+cg2*a432+cg3*a532$ 
(C115)  al33;q3*dlq3+evl$ 

(C116)  a433 ;ev4+ev4ay*drcq3+coel*d4q3$ 

(C117)  a533 : ev5-ev5ay*drcq3+coe*d5q3$ 

(C118)  bpl[3,3] :cgl*al33+cg2*a433+cg3*a533$ 
(C119)  al34 :q3*dlq4$ 

(C120)  a434 :ev4ay*drcq4+coel*d4q4$ 

(C121)  a534 : -ev5ay*drcq4+coe*d5q4$ 

(C122)  bpl[3,4] :cgl*al34+cg2*a434+cg3*a534$ 
(C123)  al35:q3*dlq5$ 

(C124 )  a435 : ev4ay*drcq5+coel*d4q5$ 

(C125)  a535: -ev5ay*drcq5+coe*d5q5$ 

(C126)  bpl[3,5] :cgl*al35+cg2*a435+cg3*a535$ 
(C127)  rcazt:rc*azt$ 

(C128)  ev4az:ev4*azt$ 

(C129)  ev5az:ev5*azt$ 

(C130)  coel;q4+rcazt$ 

(C131)  coe:q4-rcazt$ 

(C132)  al41:q4*dlql$ 

(C133 )  a441 ; ev4az*drcql+coel*d4ql$ 

(C134)  a541; -ev5az*drcql+coe*d5ql$ 

(C135)  bpl[4,l] :cgl*al41+cg2*a441+cg3*a541$ 
(C136)  al42:q4*dlq2$ 

(C137 )  a442 : ev4az*drcq2+coel*d4q2$ 

(C138)  a542 ;-ev5az*drcq2+coe*d5q2$ 

(C139)  bpl[4,2] ;cgl*al42+cg2*a442+cg3*a542$ 
(C140)  al43:q4*dlq3$ 

(C141)  a443 ; ev4az*drcq3+coel*d4q3$ 

(C142 )  a543 ; -ev5az*drcq3+coe*d5q3$ 

(C143)  bpl[4,3] :cgl*al43+cg2*a443+cg3*a543$ 
(C144)  al44 :q4*dlq4+evl$ 

(C145)  a444 :ev4+ev4az*drcq4+coel*d4q4$ 
(C146)  a544 :ev5-ev5az*drcq4+coe*d5q4$ 

(C147)  bpl[4,4] ;cgl*al44+cg2*a444+cg3*a544$ 
(C148)  al45:q4*dlq5$ 

(C149)  a445: ev4az*drcq5+coel*d4q5$ 

(C150)  a545 : -ev5az*drcq5+coe*d5q5$ 

(C151)  bpl[4,5] ;cgl*al45+cg2*a445+cg3*a545$ 


Page  3 


BPSUP 


(C152) 

(C153) 

(C154) 

(C155) 

(C156) 

(C157) 

(C158) 

(C159) 

(C160) 

(C161) 

(C162) 

(C163) 

(C164) 

(C165) 

(C166) 

(C167) 

(C168) 

(C169) 

(C170) 

(C171) 

(C172) 

(C173) 

(C174) 

(C175) 

(C176) 

(C177) 

(C178) 

(C179) 

(C180) 

(C181) 

(C182) 

(C183) 

(C184) 

(C185) 

(C186) 

(C187) 

(C188) 

(C189) 

(C190) 

(C191) 

(C192) 

(C193) 

(C194) 

(C195) 

(C196) 

(C197) 

(C198) 

(C199) 

(C200) 

(C201) 

(C202) 


rctt;rc*tt$ 

coe: 0 . 5* (q2**2+q3**2+q4**2) *q6$ 
rt : rc*dttql+tt*drcql$ 
al51:2*coe*dlql$ 

a451:ev4* (depql+rt) +(pp+rctt) *d4ql$ 

a551:ev5* (depql-rt) +(pp-rctt) *d5ql$ 

bpl[5 , 1] : cgl*al51+cg2*a451+cg3*a551$ 

rt : rc*dttq2+tt*drcq2  $ 

al52 : coe*dlq2-dlql*q2$ 

a452;ev4* (depq2+rt) +(pp+rctt) *d4q2$ 

a552;ev5* (depq2-rt) +(pp-rctt) *d5q2$ 

bpl [5 , 2 ] : cgl*al52+cg2*a452+cg3*a552$ 

rt : rc*dttq3+tt*drcq3  $ 

al53 : coe*dlq3-dlql*g3$ 

a453 :ev4* (depq3+rt) +(pp+rctt) *d4q3$ 

a553 : ev5* (depq3-rt) + (pp-rctt) *d5q3$ 

bpl[5,33 :cgl*al53+cg2*a453+cg3*a553$ 

rt : rc*dttq4+tt*drcq4  $ 

al54 : coe*dlq4-dlql*q4$ 

a454 : ev4* (depq4+rt) + (pp+rctt) *d4q4$ 

a554 : ev5* (depq4-rt) + (pp-rctt) *d5q4$ 

bpl [5 , 4 ] : cgl*al54+cg2*a454+cg3*a554$ 

rt:tt*drcq5$ 

al55 : coe*dlq5$ 

a455:ev4* (depq5+rt) +(pp+rctt) *d4q5$ 

a555 : ev5* (depq5-rt) + (pp-rctt) *d5q5$ 

bpl [5,5]: cgl*al55+cg2  *a455+cg3*a555$ 

ql:ql$ 

q2 :q2$ 

q3 :q3$ 

q4:-q4$ 

q5:q5$ 

sign: 1$ 

etz : -etz ; 

cggl: (gam-l) /gam$ 

cgg2:l/  (2*gaiii)  $ 

sada: sqrt (etx**2+ety**2+etz**2) $ 

axt : etx/ sada$ 

ayt:ety/sada$ 

azt:etz/sada$ 

rqrq:q2**2+q3**2+q4**2$ 

q6:l/ql$ 

pr: (gam-l) *(q5-0.5*rqrq*q6)$ 

prgam : pr *gam$ 

pp:q5+pr$ 

c : sqrt ( prgam*q6 ) $ 

tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

rc:ql*c$ 

csad:c*sada$ 

el:tt*sada$ 

e4 :el+csad$ 
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(C203)  e5:el-csad$ 

(C204)  evl;0.5*(el+sign*abs(el) )$ 

(C205)  ev4:0.5*(e4+sign*abs(e4) )$ 

(C206)  ev5:0.5*(e5+sign*abs(e5) ) $ 

(C207)  cgl;cggl$ 

(C208)  cg2:cgg2$ 

(C209)  cg3:cgg2$ 

(C210)  dlql: -evl*q6$ 

(C211)  dlq2:etx*q6$ 

(C212)  dlq3;ety*q6$ 

(C213)  dlq4:etz*q6$ 

(C214)  dlq5:0.0$ 

(C215)  coe:gaiJi*  (gam-l)  /  (2*rc)  $ 

(C216)  gmlq6:  (gaia-1)  *q6$ 

(C217)  drcql:coe*q5$ 

(C218)  drcq2:-coe*q2$ 

(C219)  drcq3:-coe*q3$ 

(C220)  drcq4 : ”Coe*q4$ 

(C221)  drcq5:coe*ql$ 

(C222)  dcql: (drcql-c) *q6$ 

(C223)  dcq2:drcq2*q6$ 

(C224)  dcq3 :drcq3*q6$ 

(C225)  dcq4 :drcq4*q6$ 

(C226)  dcq5:drcq5*q6$ 

(C227)  depql;0.5*gialq6*rqrq*q6$ 

(C228)  depq2:-q2*ginlq6$ 

(C229)  depq3:-q3*ginlq6$ 

(C230)  depq4 : -q4*gmlq6$ 

(C231)  depq5:gain$ 

(C232)  dttql:“tt*q6$ 

(C233)  dttq2 :axt*q6$ 

(C234)  dttq3:ayt*q6$ 

(C235)  dttq4 :azt*q6$ 

(C236)  dttq5:0.0$ 

(C237)  d4ql:sada*(dttql+dcql) $ 

(C238)  d4q2 : sada* (dttq2+dcq2) $ 

(C239)  d4q3 : sada* (dttq3+dcq3) $ 

(C240)  d4q4 ; sada* (dttq4+dcq4) $ 

(C241)  d4q5:sada*dcq5$ 

(C242)  dSql: sada* (dttql-dcql) $ 

(C243)  d5q2:sada*(dttq2-dcq2)$ 

(C244)  d5q3;sada*(dttq3-dcq3) $ 

(C245)  d5q4 : sada* (dttq4-dcq4) $ 

(C246)  d5q5;-d4q5$ 

(C247)  a411:ev4+ql*d4ql$ 

(C248)  a511:ev5+ql*d5ql$ 

(C249)  bp2 : matrix ( [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], 

[0,0, 0,0,0])$ 

(C250)  bp2[l,l] :cg2*a411+cg3*a511$ 

(C251)  bp2[l,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2 ) *ql$ 

(C252)  bp2[l,3]: (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
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(C253)  bp2[l,4] ; (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C254)  bp2 [1, 5] : (cg2*d4q5+cg3*d5q5)  *ql$ 

(C255)  rcaxt:rc*axt$ 

(C256)  ev4ax: ev4*axt$ 

(C257)  evSax: ev5*axt$ 

(C258)  coel:q2+rcaxt$ 

(C259)  coe:q2-rcaxt$ 

(C260)  al21:q2*dlql$ 

( C2  6 1 )  a4  2 1 : ev4ax*dr cql+coel*d4ql $ 

(C262)  a521; -ev5ax*drcql+coe*d5ql$ 

(C263)  bp2[2,l] :cgl*al21+cg2*a421+cg3*a521$ 
(C264)  al22;q2*dlq2+evl$ 

(C265)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C266)  a522 :ev5-ev5ax*drcq2+coe*d5q2$ 

(C267)  bp2[2,2] :cgl*al22+cg2*a422+cg3*a522$ 
(C268)  al23:q2*dlq3$ 

(C269)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C270)  a523 : -ev5ax*drcq3+coe*d5q3$ 

(C271)  bp2[2,3] :cgl*al23+cg2*a423+cg3*a523$ 
(C272)  al24:q2*dlq4$ 

(C273)  a424 :ev4ax*drcq4+coel*d4q4$ 

(C274)  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C275)  bp2[2,4] :cgl*al24+cg2*a424+cg3*a524$ 
(C276)  al25;q2*dlq5$ 

(C277 )  a425 : ev4ax*drcq5+coel*d4q5$ 

(C278)  a525; -ev5ax*drcq5+coe*d5q5$ 

(C279)  bp2[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
(C280)  rcayt:rc*ayt$ 

(C281)  ev4ay : ev4*ayt$ 

(C282)  ev5ay:ev5*ayt$ 

(C283)  coel;q3+rcayt$ 

(C284)  coe:q3-rcayt$ 

(C285)  al31:q3*dlql$ 

(C286)  a431; ev4ay*drcql+coel*d4ql$ 

(C287)  a531: -ev5ay*drcql+coe*d5ql$ 

(C288)  bp2[3,l] ;cgl*al31+cg2*a431+cg3*a531$ 
(C289)  al32:q3*dlq2$ 

(C290)  a432 ; ev4ay*drcq2+coel*d4q2$ 

(C291)  a532 ; -ev5ay*drcq2+coe*d5q2$ 

(C292)  bp2[3,2] :cgl*al32+cg2*a432+cg3*a532$ 
(C293)  al33;q3*dlq3+evl$ 

(C294 )  a433 : ev4+ev4ay*drcq3+coel*d4q3$ 

(C295)  a533 ; ev5-ev5ay*drcq3+coe*d5q3$ 

(C296)  bp2[3,3] :cgl*al33+cg2*a433+cg3*a533$ 
(C297)  al34;q3*dlq4$ 

(C298)  a434 : ev4ay*drcq4+coel*d4q4$ 

(C299)  a534 : -ev5ay*drcq4+coe*d5q4$ 

(C300)  bp2[3,4] :cgl*al34+cg2*a434+cg3*a534$ 
(C301)  al35;q3*dlq5$ 

(C302)  a435: ev4ay*drcq5+coel*d4q5$ 

(C303 )  a535 : -ev5ay*drcq5+coe*d5q5$ 
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(C304)  bp2[3,5] : cgl*al35+cg2*a435+cg3*a535$ 
(C305)  rcazt:rc*azt$ 

(C306)  ev4az:ev4*azt$ 

(C307)  ev5az:ev5*azt$ 

(C308)  coel:q4+rcazt$ 

(C309)  coe:q4-rcazt$ 

(C310)  al41;q4*dlql$ 

(C311)  a441:ev4az*drcql+coel*d4ql$ 

(C312)  a541:-ev5az*drcql+coe*d5ql$ 

(C313)  bp2[4,l] :cgl*al41+cg2*a441+cg3*a541$ 
(C314)  al42:q4*dlq2$ 

(C315)  a442 :ev4az*drcq2+coel*d4q2$ 

(C316)  a542 : -ev5az*drcq2+coe*d5q2$ 

(C317)  bp2 [4,2] ;cgl*al42+cg2*a442+cg3*a542$ 
(C318)  al43:q4*dlq3$ 

(C319 )  a443 : ev4az*drcq3+coel*d4q3 $ 

(C320)  a543 : -ev5az*drcq3+coe*d5q3$ 

(C321)  bp2[4,3] :cgl*al43+cg2*a443+cg3*a543$ 
(C322)  al44:q4*dlq4+evl$ 

(C323 )  a444 : ev4+ev4az*drcq4+coel*d4q4$ 

(C324 )  a544 : ev5-ev5az*drcq4+coe*d5q4 $ 

(C325)  bp2[4,4] ;cgl*al44+cg2*a444+cg3*a544$ 
(C326)  al45:q4*dlq5$ 

(C327)  a445:ev4az*drcq5+coel*d4q5$ 

(C328 )  a545 : -ev5az*drcq5+coe*d5q5$ 

(C329)  bp2[4,5] :cgl*al45+cg2*a445+cg3*a545$ 
(C330)  rctt:rc*tt$ 

(C331)  coe:0.5* (q2**2+q3**2+q4**2) *q6$ 
(C332)  rt:rc*dttql+tt*drcql$ 

(C333)  al5l;2*coe*dlql$ 

(C334)  a451:ev4* (depql+rt) +(pp+rctt) *d4ql$ 
(C335)  a551:ev5* (depql-rt) + (pp-rctt) *d5ql$ 
(C336)  bp2[5,13 :cgl*al51+cg2*a451+cg3*a551$ 
(C337)  rt;rc*dttq2+tt*drcq2$ 

(C338)  al52 : coe*dlq2-dlql*q2$ 

(C339)  a452:ev4*(depq2+rt)+(pp+rctt) *d4q2$ 
(C340)  a552:ev5*(depq2~rt)+ (pp-rctt) *d5q2$ 
(C341)  bp2[5,2] :cgl*al52+cg2*a452+cg3*a552$ 
(C342)  rt:rc*dttq3+tt*drcq3$ 

(C343)  al53:coe*dlq3-dlql*q3$ 

(C344)  a453 ; ev4* (depq3+rt) + (pp+rctt) *d4q3$ 
(C345)  a553 : ev5* (depq3-rt) + (pp-rctt) *d5q3$ 
(C346)  bp2[5,3] :cgl*al53+cg2*a453+cg3*a553$ 
(C347)  rt:rc*dttq4+tt*drcq4$ 

(C348)  al54 ; coe*dlq4-dlql*q4$ 

(C349)  a4 54 :ev4*(depq4+rt)+ (pp+rctt) *d4q4$ 
(C350)  a554;ev5* (depq4-rt) + (pp-rctt) *d5q4$ 
(C351)  bp2[5,43 :cgl*al54+cg2*a454+cg3*a554$ 
(C352)  rt:tt*drcq5$ 

(C353)  al55:coe*dlq5$ 

(C354)  a455:ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
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(C355) 

(C356) 

(C357) 

(C358) 


(D358) 


(C359) 

i 


a555 ; ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
bp2 [5,5] :cgl*al55+cg2*a455+cg3*a555$ 
dif f ; bpl . m-m . bp2 $ 
diff :ratexpand(diff ) ; 


[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

closefile(Bpsup) $ 
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(C3)  bpl: matrix ( [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], [0 

,0,0, 0,0])$ 

(C4)  bp2 : matrix ( [0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 

,0,0, 0,0])$ 

(C5)  dif f ; matrix ( [0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[ 

0,0, 0,0,0])$ 

(C6)  m: matrix ( [1,0,0,0,0],[0,1,0,0,0],[0,0,1,0,0],[0,0,0,-1,0],[0, 

0,0,0,!])$ 

(C7)  sign:l$ 

(C8)  cggl: (gam-1) /gam$ 

(C9)  cgg2:l/ (2*gam) $ 

(CIO)  etx:0.0$ 

(Cll)  sada:sqrt (etx**2+ety**2+etz**2)  $ 

(C12)  axt:etx/sada$ 

(C13)  ayt:ety/sada$ 

(C14)  azt:etz/sada$ 

(CIS)  rqrq;q2**2+q3**2+q4**2$ 

(C16)  q6:l/ql$ 

(C17)  pr: (gam-1) *(q5-0.5*rqrq*q6)  $ 

(CIS)  prgam:pr*gam$ 

(C19)  pp:q5+pr$ 

(C20)  c:sqrt (prgam*q6) $ 

(C21)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

(C22)  rc:ql*c$ 

(C23)  csad:c*sada$ 

(C24)  el:tt*sada$ 

(C25)  e4:el+csad$ 

(C26)  e5:el-csad$ 

(C27)  evl:0.5*(el+sign*abs(el) )  $ 

(C28)  ev4;0.5*(e4+sign*abs(e4) )  $ 

(C29)  ev5:0.0$ 

(C30)  cgl:cggl$ 

(C31)  cg2:cgg2$ 

(C32)  cg3;0.0$ 

(C33)  dlql:-evl*q6$ 

(C34)  dlq2:etx*q6$ 

(C35)  dlq3:ety*q6$ 

(C36)  dlq4:etz*q6$ 

(C37)  dlq5:0.0$ 

(C38)  coetgam* (gam-1) / (2*rc) $ 

(C39)  gmlq6: (gam-1) *q6$ 

(C40)  drcql: coe*q5$ 

(C41)  drcq2 : -coe*q2$ 

(C42)  drcq3 : -coe*q3$ 

(C43)  drcq4 : -coe*q4$ 

(C44)  drcq5:coe*ql$ 

(C45)  dcql: (drcql-c) *q6$ 

(C46)  dcq2 :drcq2*q6$ 

(C47)  dcq3 :drcq3*q6$ 

(C48)  dcq4 :drcq4*q6$ 

(C49)  dcq5:drcq5*q6$ 


Page  1 


BPSUB 


(C50)  depql:0.5*ginlq6*rqrq*q6$ 

(C51)  depq2 : -q2*gmlq6$ 

(C52)  depq3 : -q3*ginlq6$ 

(C53)  depq4 : -q4*ginlq6$ 

(C54)  depq5:gam$ 

(C55)  dttql:-tt*q6$ 

(C56)  dttq2;axt*q6$ 

(C57)  dttq3:ayt*q6$ 

(C58)  dttq4;a2t*q6$ 

(C59)  dttq5:0.0$ 

(C60)  d4ql:sada* (dttql+dcql) $ 

(C61)  d4q2 ; sada* (dttq2+dcq2) $ 

(C62)  d4q3 :sada* (dttq3+dcq3) $ 

(C63)  d4q4:sada*(dttq4+dcq4) $ 

(C64)  d4q5;sada*dcq5$ 

(C65)  d5ql:sada* (dttql-dcql) $ 

(C66)  d5q2:sada*(dttq2-dcq2) $ 

(C67)  d5q3 : sada* (dttq3-dcq3) $ 

(C68)  d5q4:sada* (dttq4-dcq4) $ 

(C69)  d5q5:-d4q5$ 

(C70)  a411:ev4+ql*d4ql$ 

(C71)  a511:ev5+ql*d5ql$ 

(C72)  bpl[l,l] :cg2*a411+cg3*a511$ 

(C73)  bpl[l,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 
(C74)  bpl[l,3]; (cgl*dlq3+cg2*d4q3+cg3*d5q3)*ql$ 
(C75)  bpl[l,4]:  (cgl*dlq44-cg2*d4q4+cg3*d5q4)  *ql$ 
(C76)  bpl[l,5] : (cg2*d4q5+cg3*d5q5) *ql$ 

(C77)  rcaxt:rc*axt$ 

(C78)  ev4ax: ev4*axt$ 

(C79)  ev5ax; ev5*axt$ 

(C80)  coel:q2+rcaxt$ 

(C81)  coe;q2“rcaxt$ 

(C82)  al21:q2*dlql$ 

(C83 )  a421 : ev4ax*drcql+coel*d4ql$ 

(C84)  a521: -ev5ax*drcql+coe*d5ql$ 

(C85)  bpl[2,l] :cgl*al21+cg2*a421+cg3*a521$ 

(C86)  al22 :q2*dlq2+evl$ 

(C87)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C88)  a522 :ev5-ev5ax*drcq2+coe*d5q2$ 

(C89)  bpl[2,2] :cgl*al22+cg2*a422+cg3*a522$ 

(C90)  al23:q2*dlq3$ 

(C91)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C92)  a523 : -ev5ax*drcq3+coe*d5q3$ 

(C93)  bpl[2,3] :cgl*al23+cg2*a423+cg3*a523$ 

(C94)  al24:q2*dlq4$ 

(C95)  a424 ;ev4ax*drcq4+coel*d4q4$ 

(C96)  a524 ; -ev5ax*drcq4+coe*d5q4$ 

(C97)  bpl[2,4] :cgl*al24+cg2*a424+cg3*a524$ 

(C98)  al25;q2*dlq5$ 

(C99 )  a425 ; ev4ax*drcq5+coel*d4q5$ 

(ClOO)  a525: -ev5ax*drcq5+coe*d5q5$ 
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(ClOl)  bpl[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
(C102)  rcayt:rc*ayt$ 

(C103)  ev4ay; ev4*ayt$ 

(C104)  ev5ay:ev5*ayt$ 

(C105)  coel:q3+rcayt$ 

(C106)  coe:q3-rcayt$ 

(C107)  al31:q3*dlql$ 

(C108 )  a4 3 1 : ev4ay*drcql+coel*d4ql$ 

(C109)  a531: -ev5ay*drcql+coe*d5ql$ 

(Clio)  bpl[3,l] ;cgl*al31+cg2*a431+cg3*a531$ 
(Clll)  al32:q3*dlq2$ 

(C112)  a432 :ev4ay*drcq2+coel*d4q2$ 

(C113 )  a532 : -ev5ay*drcq2+coe*d5q2 $ 

(C114)  bpl[3,2] ;cgl*al32+cg2*a432+cg3*a532$ 
(C115)  al33:q3*dlq3+evl$ 

(C116)  a433 :ev4+ev4ay*drcq3+coel*d4q3$ 
(C117)  a533:ev5-ev5ay*drcq3+coe*d5q3$ 

(C118)  bpl[3,3] ;cgl*al33+cg2*a433+cg3*a533$ 
(C119)  al34:q3*dlq4$ 

(C120)  a434 :ev4ay*drcq4+coel*d4q4$ 

( C12 1 )  a5 34 : -ev5ay*drcq4+coe*d5q4 $ 

(C122)  bpl[3,4] :cgl*al34+cg2*a434+cg3*a534$ 
(C123)  al35:q3*dlq5$ 

(C124)  a435:ev4ay*drcq5+coel*d4q5$ 

(C125)  a535: -ev5ay*drcq5+coe*d5q5$ 

(C126)  bpl[3,5] :cgl*al35+cg2*a435+cg3*a535$ 
(C127)  rca2t:rc*azt$ 

(C128)  ev4az : ev4*a2t$ 

(C129)  evSaz : ev5*azt$ 

(C130)  coel: q4+rcazt$ 

(C131)  coe:q4-rcazt$ 

(C132)  al41:q4*dlql$ 

(C133 )  a441 : ev4a2*drcql+coel*d4ql$ 

( C134 )  a541 : -ev5az*drcql+coe*d5ql$ 

(C135)  bpl[4,l] ;cgl*al41+cg2*a441+cg3*a541$ 
(C136)  al42:q4*dlq2$ 

(C137)  a442 ;ev4az*drcq2+coel*d4q2$ 

(C138)  a542 ; -ev5az*drcq2+coe*d5q2$ 

(C139)  bpl[4,2] ;cgl*al42+cg2*a442+cg3*a542$ 
(C140)  al43:q4*dlq3$ 

(C141)  a443 :ev4az*drcq3+coel*d4q3$ 

(C142 )  a543 : -ev5az*drcq3+coe*d5q3$ 

(C143)  bpl[4,3] :cgl*al43+cg2*a443+cg3*a543$ 
(C144)  al44 :q4*dlq4+evl$ 

(C145)  a444: ev4  +ev4 az *dr cq4  +coel *d4q4 $ 
(C146)  a544 :ev5-ev5az*drcq4+coe*d5q4$ 

(C147)  bpl[4,4] :cgl*al44+cg2*a444+cg3*a544$ 
(C148)  al45:q4*dlq5$ 

(C149 )  a445 : ev4az*drcq5+coel*d4q5$ 

(C150)  a545: -ev5az*drcq5+coe*d5q5$ 

(C151)  bpl[4,5] :cgl*al45+cg2*a445+cg3*a545$ 
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(C152)  rctt:rc*tt$ 

(C153)  coe: 0. 5* (q2**2+q3**2+q4**2) *q6$ 
(C154)  rt:rc*dttql+tt*drcql$ 

(C155)  al51:2*coe*dlql$ 

(C156)  a451;ev4* (depql+rt) +(pp+rctt) *d4ql$ 

(C157)  a551:ev5* (depql-rt) +(pp-rctt) *d5ql$ 
(C158)  bpl[5, 1] :cgl*al51+cg2*a451+cg3*a551$ 
(C159)  rt;rc*dttq2+tt*drcq2$ 

(C160)  al52:coe*dlq2-dlql*q2$ 

(C161)  a452:ev4* (depq2+rt) +(pp+rctt) *d4q2$ 
(C162)  a552 : ev5* (depq2-rt)  +  (pp-rctt)  *d5q2$ 
(C163)  bpl[5,2] ;cgl*al52+cg2*a452+cg3*a552$ 
(C164)  rt :rc*dttq3+tt*drcq3$ 

(C165)  al53;coe*dlq3-dlql*q3$ 

(C166)  a453;ev4* (depq3+rt) +(pp+rctt) *d4q3$ 
(C167 )  a553 : ev5* (depq3-rt) + (pp-rctt) *d5q3$ 
(C168)  bpl[5,3] :cgl*al53+cg2*a453+cg3*a553$ 
(C169)  rt:rc*dttq4+tt*drcq4$ 

(C170)  al54 : coe*dlq4-dlql*q4$ 

(C171)  a454 : ev4* (depq4+rt) + (pp+rctt) *d4q4$ 
(C172)  a554:ev5*(depq4-rt)+ (pp-rctt) *d5q4$ 
(C173)  bpl[5,4] :cgl*al54+cg2*a454+cg3*a554$ 
(C174)  rt:tt*drcq5$ 

(C175)  al55:coe*dlq5$ 

(C176)  a455:ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
(C177)  a555:ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
(C178)  bpl[5,5] :cgl*al55+cg2*a455+cg3*a555$ 
(C179)  ql:ql$ 

(C180)  q2:q2$ 

(C181)  q3:q3$ 

(C182)  q4;-q4$ 

(C183)  q5:q5$ 

(C184)  sign:l$ 

(C185)  etz:-etz; 

(C186)  cggl:  (gam-1) /gain$ 

(C187)  cgg2 : 1/ (2*gam) $ 

(C188)  sada:sqrt(etx**2+ety**2+etz**2)  $ 
(C189)  axt:etx/sada$ 

(C190)  ayt:ety/sada$ 

(C191)  azt;etz/sada$ 

(C192)  rqrq:q2**2+q3**2+q4**2$ 

(C193)  q6:l/ql$ 

(C194)  pr; (gam-1) * (q5-0. 5*rqrq*q6)  $ 

(C195)  prgam:pr*gam$ 

(C196)  pp;q5+pr$ 

(C197)  c: sqrt (prgam*q6) $ 

(C198)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

(C199)  rc:ql*c$ 

(C200)  csad:c*sada$ 

(C201)  el:tt*sada$ 

(C202)  e4:el+csad$ 
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(C203)  e5:el-csad$ 

(C204 )  evl : 0 • 5* (el+sign*abs (el) )  $ 

(C205)  ev4:0.5*(e4+sign*abs{e4)  )$ 

(C206)  ev5:0.0$ 

(C207)  cgl:cggl$ 

(C208)  cg2;cgg2$ 

(C209)  cg3;0.0$ 

(C210)  dlql: -evl*q6$ 

(C211)  dlq2:etx*q6$ 

(C212)  dlq3:ety*q6$ 

(C213)  dlq4:etz*q6$ 

(C214)  dlq5:0.0$ 

(C215)  coe;gam* (gam-l) / (2*rc) $ 

(C216)  gmlq6: (gam-1) *q6$ 

(C217)  drcql:coe*q5$ 

(C218)  drcq2 :-coe*q2$ 

(C219)  drcq3 : -coe*q3$ 

(C220)  drcq4 :-coe*q4$ 

(C221)  drcq5:coe*ql$ 

(C222)  dcql; (drcql-c) *q6$ 

(C223)  dcq2 :drcq2*q6$ 

(C224)  dcq3 ;drcq3*q6$ 

(C225)  dcq4;drcq4*q6$ 

(C226)  dcq5:drcq5*q6$ 

(C227)  depql:0.5*gmlq6*rqrq*q6$ 

(C228)  depq2 :-q2*gmlq6$ 

(C229)  depq3 :-q3*gmlq6$ 

(C230)  depq4 : -q4*gmlq6$ 

(C231)  depq5;gam$ 

(C232)  dttql:-tt*q6$ 

(C233)  dttq2 :axt*q6$ 

(C234)  dttq3 :ayt*q6$ 

(C235)  dttq4 :azt*q6$ 

(C236)  dttq5:0.0$ 

(C237)  d4ql; sada* (dttql+dcql) $ 

(C238)  d4q2:sada*(dttq2+dcq2) $ 

(C239)  d4q3 : sada* (dttq3+dcq3) $ 

(C240)  d4q4 : sada* (dttq4+dcq4) $ 

(C241)  d4q5 ; sada*dcq5$ 

(C242)  d5ql:sada*(dttql-dcql) $ 

(C243)  d5q2 ; sada* (dttq2-dcq2) $ 

(C244)  d5q3 : sada* (dttq3-dcq3) $ 

(C245)  d5q4 : sada* (dttq4-dcq4) $ 

(C246)  d5q5:-d4q5$ 

(C247)  a411:ev4+ql*d4ql$ 

(C248)  a511:ev5+ql*d5ql$ 

(C249)  bp2 :matrix( [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], 

[0,0, 0,0,0])$ 

(C250)  bp2[l,l] :cg2*a411+cg3*a511$ 

(C251)  bp2[l,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 

(C252)  bp2[l,3]: (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
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(C253)  bp2[l,4] : (cgl*dlq4+cg2*d4q4+cg3*d5q4)*ql$ 
(C254)  bp2[l,5] : (cg2*d4q5+cg3*d5q5)  *ql$ 

(C255)  rcaxt:rc*axt$ 

(C256)  ev4ax:ev4*axt$ 

(C257)  ev5ax:ev5*axt$ 

(C258)  coel:q2+rcaxt$ 

(C259)  coe;q2-rcaxt$ 

(C260)  al21;q2*dlql$ 

(C261)  a421:ev4ax*drcql+coel*d4ql$ 

(C262 )  a521 ; -ev5ax*drcql+coe*d5ql$ 

(C263)  bp2[2,l] :cgl*al21+cg2*a421+cg3*a521$ 
(C264)  al22:q2*dlq2+evl$ 

(C265)  a422 : ev4+ev4ax*drcq2+coel*d4q2$ 

(C266)  a522;ev5~ev5ax*drcq2+coe*d5q2$ 

(C267)  bp2[2,2] : cgl*al22+cg2*a422+cg3*a522$ 
(C268)  al23;q2*dlq3$ 

(C269)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C270)  a523 :-ev5ax*drcq3+coe*d5q3$ 

(C271)  bp2[2,3] :cgl*al23+cg2*a423+cg3*a523$ 
(C272)  al24 :q2*dlq4$ 

(C273)  a424 :ev4ax*drcq4+coel*d4q4$ 

(C274)  a524 :-ev5ax*drcq4+coe*d5q4$ 

(C275)  bp2[2,4] : cgl*al24+cg2*a424+cg3*a524$ 
(C276)  al25:q2*dlq5$ 

(C277)  a425 ; ev4ax*drcq5+coel*d4q5$ 

(C278 )  a525 ; -ev5ax*drcq5+coe*d5q5$ 

(C279)  bp2[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
(C280)  rcayt;rc*ayt$ 

(C281)  ev4ay:ev4*ayt$ 

(C282)  ev5ay:ev5*ayt$ 

(C283)  coel:q3+rcayt$ 

(C284)  coe:q3“rcayt$ 

(C285)  al31:q3*dlql$ 

(C286)  a431:ev4ay*drcql+coel*d4ql$ 

(C287)  a531;-ev5ay*drcql+coe*d5ql$ 

(C288)  bp2[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
(C289)  al32 :q3*dlq2$ 

(C290)  a432 : ev4ay*drcq2+coel*d4q2$ 

(C291)  a532;-ev5ay*drcq2+coe*d5q2$ 

(C292)  bp2[3,2] ; cgl*al32+cg2*a432+cg3*a532$ 

(C293)  al33 :q3*dlq3+evl$ 

(C294)  a433 : ev4+ev4ay*drcq3+coel*d4q3$ 

(C295)  a533 :ev5-ev5ay*drcq3+coe*d5q3$ 

(C296)  bp2[3,3] : cgl*al33+cg2*a433+cg3*a533$ 
(C297)  al34:q3*dlq4$ 

(C298)  a434 : ev4ay*drcq4+coel*d4q4$ 

(C299)  a534 :-ev5ay*drcq4+coe*d5q4$ 

(C300)  bp2[3,4] :cgl*al34+cg2*a434+cg3*a534$ 
(C301)  al35:q3*dlq5$ 

(C302)  a435 : ev4ay*drcq5+coel*d4q5$ 

(C303)  a535 : -ev5ay*drcq5+coe*d5q5$ 
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(C304)  bp2[3,5] : cgl*al35+cg2*a435+cg3*a535$ 
(C305)  rcazt ;rc*azt$ 

(C306)  ev4az :ev4*azt$ 

(C307)  ev5az;ev5*azt$ 

(C308)  coel:q4+rcazt$ 

(C309)  coe;q4-rcazt$ 

(C310)  al41:q4*dlql$ 

(C311)  a441: ev4az*drcql+coel*d4ql$ 

(C312 )  a541 : -ev5az*drcql+coe*d5ql$ 

(C313)  bp2[4,l] :cgl*al41+cg2*a441+cg3*a541$ 
(C314)  al42:q4*dlq2$ 

(C315)  a442 : ev4az*drcq2+coel*d4q2$ 

(C316)  a542 : -ev5az*drcq2+coe*d5q2$ 

(C317)  bp2[4,23 :cgl*al42+cg2*a442+cg3*a542$ 
(C318)  al43 :q4*dlq3$ 

(C319)  a443 ;ev4az*drcq3+coel*d4q3$ 

(C320)  a543 : -ev5az*drcq3+coe*d5q3$ 

(C321)  bp2[4,33 :cgl*al43+cg2*a443+cg3*a543$ 
(C322)  al44;q4*dlq4+evl$ 

(C323 )  a444 : ev4+ev4az*drcq4+coel*d4q4$ 

(C324)  a544 :ev5-ev5az*drcq4+coe*d5q4$ 

(C325)  bp2 [4,43 ;cgl*al44+cg2*a444+cg3*a544$ 
(C326)  al45:q4*dlq5$ 

(C327)  a445: ev4az*drcq5+coel*d4q5$ 

(C328)  a545: -ev5az*drcq5+coe*d5q5$ 

(C329)  bp2 [4 ,53 ;cgl*al45+cg2*a445+cg3*a545$ 
(C330)  rctt:rc*tt$ 

(C331)  coe:0.5*(q2**2+q3**2+q4**2)*q6$ 

(C332)  rt:rc*dttql+tt*drcql$ 

(C333)  al51:2*coe*dlql$ 

(C334)  a451;ev4* (depql+rt) + (pp+rctt) *d4ql$ 
(C335)  a551:ev5*(depql-rt)+(pp-rctt) *d5ql$ 
(C336)  bp2[5,13 :cgl*al51+cg2*a451+cg3*a551$ 
(C337)  rt:rc*dttq2+tt*drcq2$ 

(C338)  al52:coe*dlq2-dlql*q2$ 

(C339)  a452:ev4*(depq2+rt)+(pp+rctt) *d4q2$ 
(C340)  a552;ev5*(depq2-rt)+(pp-rctt) *d5q2$ 
(C341)  bp2[5,23 :cgl*al52+cg2*a452+cg3*a552$ 
(C342)  rt:rc*dttq3+tt*drcq3$ 

(C343)  al53 : coe*dlq3-dlql*q3$ 

(C344)  a453 :ev4* (depq3+rt) + (pp+rctt) *d4q3$ 
(C345)  a553:ev5*(depq3-rt)+(pp-rctt) *d5q3$ 
(C346)  bp2[5,33 :cgl*al53+cg2*a453+cg3*a553$ 
(C347)  rt:rc*dttq4+tt*drcq4$ 

(C348)  al54 : coe*dlq4-dlql*q4$ 

(C349)  a4 54 :ev4*(depq4+rt)+ (pp+rctt) *d4q4$ 
(C350)  a554 : ev5* (depq4-rt) + (pp-rctt) *d5q4$ 
(C351)  bp2[5,43 :cgl*al54+cg2*a454+cg3*a554$ 
(C352)  rt:tt*drcq5$ 

(C353)  al55:coe*dlq5$ 

(C354)  a455:ev4*(depq5+rt)+ (pp+rctt) *d4q5$ 
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(C355) 

(C356) 

(C357) 

(C358) 


(D358) 


(C359) 

I 


a555:ev5* (depq5-rt) +(pp-rctt) *d5q5$ 
bp2 [5,5] :cgl*al55+cg2*a455+cg3*a555$ 
diff  :bpl.m-in.bp2$ 
diff ;ratexpand(diff ) ; 


[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

] 

[ 

3 

[ 

0 

0 

0 

0 

0 

] 

closefile(Bpsub) $ 
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(C3 )  bml : matrix ([0,0, 0,0,0], [0,0, 0,0,0], 

,0,0, 0,0])$ 

(C4)  bm2: matrix ( [0,0, 0,0,0], [0,0, 0,0,0], 

,0,0, 0,0])$ 

(C5)  m:matrix( [1, 0, 0, 0, 0] ,[0,1,0,0,0],[C 

0,0,0,!])$ 

(C6)  diff:matrix( [0,0, 0,0,0] ,[0,0, 0,0,0] 

0,0, 0,0,0])$ 

(C7)  sign:-l$ 

(C8)  cggl: (gam-1) /gam$ 

(C9)  cgg2;l/ (2*gam) $ 

(CIO)  etx:0.0$ 

(Cll)  sadarsqrt (etx**2+ety**2+etz**2)  $ 
(C12)  axt:etx/sada$ 

(C13)  ayt:ety/sada$ 

(C14)  a2t:etz/sada$ 

(C15)  rqrq:q2**2+q3**2+q4**2$ 

(C16)  q6:l/ql$ 

(C17)  pr: (gam-1) * (q5-0 . 5*rqrq*q6) $ 

(C18)  prgam:pr*gam$ 

(C19)  pp:q5+pr$ 

(C20)  c:sqrt (prgam*q6) $ 

(C21)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

(C22)  rc:ql*c$ 

(C23)  csad:c*sada$ 

(C24)  el:tt*sada$ 

( C2  5 )  e4 :  el+csad$ 

(C26)  e5:el-csad$ 

(C27)  evl:0.0$ 

(C28)  ev4:0.0$ 

(C29)  ev5:0.0$ 

(C30)  cgl:0.0$ 

(C31)  cg2:0.0$ 

(C32)  cg3:0.0$ 

(C33)  dlql:-evl*q6$ 

(C34)  dlq2;etx*q6$ 

(C35)  dlq3:ety*q6$ 

(C36)  dlq4:etz*q6$ 

(C37)  dlq5:0.0$ 

(C38)  coezgam* (gam-1) / (2*rc) $ 

(C39)  gmlq6; (gam-1) *q6$ 

(C40)  drcql: coe*q5$ 

(C41)  drcq2;-coe*q2$ 

(C42)  drcq3 : -coe*q3$ 

(C43)  drcq4 : -coe*q4$ 

(C44)  drcqS : coe*ql$ 

(C45)  dcql: (drcql-c) *q6$ 

(C46)  dcq2 :drcq2*q6$ 

(C47)  dcq3 :drcq3*q6$ 

(C48)  dcq4 :drcq4*q6$ 

(C49)  dcq5:drcq5*q6$ 


[0,0, 0,0,0] , [0,0, 0,0,0] , [0 
[0,0, 0,0,0] , [0,0, 0,0,0] , [0 
,0,1,0,0], [0,0, 0,-1, 0], [0, 
,[0,0,0,0,0], [0,0, 0,0,0], [ 
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(C50)  depql: 0. 5*gmlq6*rqrq*q6$ 

(C51)  depq2 : -q2*gmlq6$ 

(C52)  depqS : -q3*gmlq6$ 

(C53)  depq4;-q4*ginlq6$ 

(C54)  depq5:gain$ 

(C55)  dttql:-tt*q6$ 

(C56)  dttq2:axt*q6$ 

(C57)  dttq3:ayt*q6$ 

(C58)  dttq4;azt*q6$ 

(C59)  dttq5:0.0$ 

(C60)  d4ql: sada* (dttql+dcql) $ 

(C61)  d4q2 ;sada* (dttq2+dcq2) $ 

(C62)  d4q3 : sada* (dttq3+dcq3) $ 

(C63)  d4q4 : sada* (dttq4+dcq4) $ 

(C64)  d4q5;sada*dcq5$ 

(C65)  d5ql:sada* (dttql-dcql) $ 

(C66)  d5q2;sada*(dttq2-dcq2) $ 

(C67)  d5q3 : sada* (dttq3-dcq3) $ 

(C68)  d5q4 : sada* (dttq4-dcq4) $ 

(C69)  d5q5:-d4q5$ 

(C70)  a411:ev4+ql*d4ql$ 

(C71)  a511;ev5+ql*d5ql$ 

(C72)  bml[l,l] :cg2*a411+cg3*a511$ 

(C73)  bml[l,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 
(C74)  bml[l,3]: (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
(C75)  bml[l,4] : (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C76)  bml[l,5]: (cg2*d4q5+cg3*d5q5) *ql$ 

(C77)  rcaxt:rc*axt$ 

(C78)  ev4ax: ev4*axt$ 

(C79)  ev5ax: ev5*axt$ 

(C80)  coel:q2+rcaxt$ 

(C81)  coe:q2-rcaxt$ 

(C82)  al21:q2*dlql$ 

(C83)  a421:ev4ax*drcql+coel*d4ql$ 

(C84)  a521; -ev5ax*drcql+coe*d5ql$ 

(C85)  bial[2, 1]  :cgl*al21+cg2*a421+cg3*a521$ 

(C86)  al22:q2*dlq2+evl$ 

(C87)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C88)  a522 :ev5~ev5ax*drcq2+coe*d5q2$ 

(C89)  bml[2,2] :cgl*al22+cg2*a422+cg3*a522$ 

(C90)  al23;q2*dlq3$ 

(C91)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C92)  a523 : “ev5ax*drcq3+coe*d5q3$ 

(C93)  bml[2,3] :cgl*al23+cg2*a423+cg3*a523$ 

(C94)  al24:q2*dlq4$ 

(C95)  a424 ;ev4ax*drcq4+coel*d4q4$ 

( C9 6 )  a5 2  4 : -ev5ax*drcq4  +coe*d5q4  $ 

(C97)  bml[2,43 :cgl*al24+cg2*a424+cg3*a524$ 

(C98)  al25:q2*dlq5$ 

(C99)  a425: ev4ax*drcq5+coel*d4q5$ 

(ClOO)  a525: “ev5ax*drcq5+coe*d5q5$ 
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(ClOl)  bml[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
(C102)  rcayt:rc*ayt$ 

(C103)  ev4ay:ev4*ayt$ 

(C104)  ev5ay:ev5*ayt$ 

(C105)  coel:q3+rcayt$ 

(C106)  coe:q3-rcayt$ 

(C107)  al31:q3*dlql$ 

(C108 )  a4 3 1 ; ev4ay*drcql+coel*d4ql$ 

(C109 )  a531 : -ev5ay*drcql+coe*d5ql$ 

(Clio)  bml[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
(Clll)  al32:q3*dlq2$ 

(C112 )  a432 : ev4ay*drcq2+coel*d4q2$ 

(C113 )  a532 : -ev5ay*drcq2+coe*d5q2$ 

(C114)  bml[3,2] :cgl*al32+cg2*a432+cg3*a532$ 
(C115)  al33:q3*dlq3+evl$ 

( C116 )  a4  3  3 : ev4  +ev4 ay*drcq3+coel*d4q3  $ 

(C117 )  a53 3 : ev5-ev5ay*drcq3+coe*d5q3 $ 

(C118)  bml[3,3] :cgl*al33+cg2*a433+cg3*a533$ 
(C119)  al34:q3*dlq4$ 

(C120)  a434 :ev4ay*drcq4+coel*d4q4$ 

(C121)  a534 : -ev5ay*drcq4+coe*d5q4$ 

(C122)  bial[3,4] : cgl*al34+cg2*a434+cg3*a534$ 
(C123)  al35:q3*dlq5$ 

(C124 )  a435 : ev4ay*drcq5+coel*d4q5$ 

(C125)  a535:-ev5ay*drcq5+coe*d5q5$ 

(C126)  bml[3 ,5] :cgl*al35+cg2*a435+cg3*a535$ 
(C127)  rcazt:rc*azt$ 

(C128)  ev4az:ev4*azt$ 

(C129)  ev5az ;ev5*azt$ 

(C130)  coel:q4+rcazt$ 

(C131)  coe:q4-rcazt$ 

(C132)  al41:q4*dlql$ 

(C133 )  a441; ev4az*drcql+coel*d4ql$ 

(C134 )  a541 : -ev5az*drcql+coe*d5ql$ 

(C135)  bml[4,l] :cgl*al41+cg2*a441+cg3*a541$ 
(C136)  al42 :q4*dlq2$ 

(C137)  a442 : ev4az*drcq2+coel*d4q2$ 

(C138 )  a542 : -ev5az*drcq2+coe*d5q2$ 

(C139)  bml[4,2] : cgl*al42+cg2*a442+cg3*a542$ 
(C140)  al43:q4*dlq3$ 

(C141)  a443 : ev4az*drcq3+coel*d4q3$ 

(C142 )  a543 : -ev5az*drcq3+coe*d5q3$ 

(C143)  bml[4,3] :cgl*al43+cg2*a443+cg3*a543$ 
(C144)  al44 :q4*dlq4+evl$ 

(C145)  a444:ev4+ev4az*drcq4+coel*d4q4$ 
(C146)  a544 :ev5-ev5az*drcq4+coe*d5q4$ 

(C147)  bml[4,4] :cgl*al44+cg2*a444+cg3*a544$ 
(C148)  al45:q4*dlq5$ 

(C149)  a445 :ev4az*drcq5+coel*d4q5$ 

(C150)  a545 : -ev5az*drcq5+coe*d5q5$ 

(C151)  bml[4,53 :cgl*al45+cg2*a445+cg3*a545$ 
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(C152)  rctt:rc*tt$ 

(C153)  coe:0.5*(q2**2+q3**2+q4**2)  *q6$ 
(C154)  rt:rc*dttql+tt*drcql$ 

(C155)  al51:2*coe*dlql$ 

(C156)  a451:ev4*(depql+rt)  +  (pp+rctt)  *d4ql$ 
(C157)  a551:ev5*(depql-rt)+(pp-rctt) *d5ql$ 
(C158)  binl[5,l]  :cgl*al51+cg2*a451+cg3*a551$ 
(CIS 9)  rt:rc*dttq2+tt*drcq2$ 

(C160)  al52:coe*dlq2-dlql*q2$ 

( Cl 6 1 )  a4  5  2 ; ev4  * ( depq2  +r t )  +  ( pp+rctt )  *d4q2  $ 
(C162)  a552:ev5*(depq2-rt)+(pp-rctt) *d5q2$ 
(C163)  bml[5,23 :cgl*al52+cg2*a452+cg3*a552$ 
(C164)  rt:rc*dttq3+tt*drcq3$ 

(C165)  al53:coe*dlq3-dlql*q3$ 

(C166)  a453 :ev4* (depq3+rt) + (pp+rctt) *d4q3$ 
(C167)  a553:ev5*(depq3-rt)  +  (pp-rctt)  *d5q3$ 
(C168)  bml[5,3] :cgl*al53+cg2*a453+cg3*a553$ 
(C169)  rt:rc*dttq4+tt*drcq4$ 

(C170)  al54:coe*dlq4-dlql*q4$ 

(C171)  a454:ev4*(depq4+rt)  + (pp+rctt)  *d4q4$ 
(C172)  a554:ev5*(depq4-rt)+(pp-rctt) *d5q4$ 
(C173)  bial[5,4]  :cgl*al54+cg2*a454+cg3*a554$ 
(C174)  rt:tt*drcq5$ 

(C175)  al55;coe*dlq5$ 

(C176)  a455:ev4* (depqS+rt) + (pp+rctt) *d4q5$ 
(C177)  a555;ev5* (depqS-rt) + (pp-rctt) *d5q5$ 
(C178)  bml[5,5] : cgl*al55+cg2*a455+cg3*a555$ 
(C179)  ql:ql$ 

(C180)  q2:q2$ 

(C181)  q3:q3$ 

(C182)  q4:-q4$ 

(C183)  q5:q5$ 

(C184)  sign:l$ 

(C185)  etz:-etz; 

(C186)  cggl;  (gam-1) /gain$ 

(C187)  cgg2;l/(2*gam)$ 

(C188)  sada:sqrt (etx**2+ety**2+etz**2) $ 
(C189)  axt:etx/sada$ 

(C190)  ayt:ety/sada$ 

(C191)  azt:etz/sada$ 

(C192)  rqrq;q2**2+q3**2+q4**2$ 

(C193)  q6:l/ql$ 

(C194)  pr: (gam-1) * (qS-0. 5*rqrq*q6)  $ 

(C195)  prgam:pr*gam$ 

(C196)  pp:q5+pr$ 

(C197)  c:sqrt(prgam*q6) $ 

(C198)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

(C199)  rc:ql*c$ 

(C200)  csad:c*sada$ 

(C201)  el:tt*sada$ 

(C202)  e4:el+csad$ 
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(C203) 

(C204) 

(C205) 

(C206) 

(C207) 

{C208) 

(C209) 

(C210) 

(C211) 

(C212) 

(C213) 

(C214) 

(C215) 

(C216) 

(C217) 

(C218) 

(C219) 

(C220) 

(C221) 

(C222) 

(C223) 

(C224) 

(C225) 

(C226) 

(C227) 

(C228) 

(C229) 

(C230) 

(C231) 

(C232) 

(C233) 

(C234) 

(C235) 

(C236) 

(C237) 

(C238) 

(C239) 

(C240) 

(C241) 

{C242) 

(C243) 

(C244) 

(C245) 

(C246) 

(C247) 

(C248) 

{C249) 

[0,0,0 

(C250) 

(C251) 

(C252) 


BMSUP 


e5:el-csad$ 
evl: 0. 0$ 
ev4 : 0. 0$ 
ev5; 0. 0$ 
cgl:0. 0$ 
cg2 : 0. 0$ 
cg3 : 0. 0$ 
dlql: -evl*q6$ 
dlq2 :etx*q6$ 
dlq3 ;ety*q6$ 
dlq4 : etz*q6$ 
dlq5:0.0$ 

coe:gam* (gam-1) / (2*rc) $ 

gmlq6: (gam-1) *q6$ 

drcql:coe*q5$ 

drcq2 : -coe*q2$ 

drcq3 : -coe*q3$ 

drcq4 : -coe*q4$ 

drcq5:coe*ql$ 

dcql; (drcql-c) *q6$ 

dcq2 : drcq2  *q6  $ 

dcq3 : drcq3 *q6 $ 

dcq4 : drcq4  *q6  $ 

dcq5 : drcq5*q6$ 

depql : 0 . 5*gmlq6*rqrq*q6$ 

depq2 : -q2*gmlq6$ 

depq3 : -q3*gmlq6$ 

depq4 ; -q4*gmlq6$ 

depqS : gam$ 

dttql: -tt*q6$ 

dttq2 : axt*q6$ 

dttq3:ayt*q6$ 

dttq4 : azt*q6$ 

dttqS: 0.0$ 

d4ql ; sada* (dttql+dcql) $ 
d4q2 : sada* (dttq2+dcq2) $ 
d4q3 : sada* (dttq3+dcq3 ) $ 
d4q4 : sada* (dttq4+dcq4) $ 
d4q5 : sada*dcq5$ 
dSql : sada* (dttql-dcql) $ 
d5q2 : sada* (dttq2-dcq2) $ 
d5q3 : sada* (dttq3-dcq3) $ 
d5q4 : sada* (dttq4-dcq4 ) $ 
d5q5;-d4q5$ 
a411: ev4+ql*d4ql$ 
aSll : ev5+ql*d5ql$ 

bm2:  matrix  ( [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], 

,0,0])$ 

bm2 [1, 1] :cg2*a411+cg3*a511$ 

bm2[l,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 

bm2[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
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(C253)  bm2[l,4]: (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C254)  bm2 [1, 5] ; (cg2*d4q5+cg3*d5q5) *ql$ 

(C255)  rcaxt:rc*axt$ 

(C256)  ev4ax: ev4*axt$ 

(C257)  ev5ax:ev5*axt$ 

(C258)  coel:q2+rcaxt$ 

(C259)  coe: q2-rcaxt$ 

(C260)  al21:q2*dlql$ 

(C261)  a421:ev4ax*drcql+coel*d4ql$ 

(C262)  a521; -ev5ax*drcql+coe*d5ql$ 

(C263)  bia2[2, 1]  : cgl*al21+cg2*a421+cg3*a521$ 
(C264)  al22:q2*dlq2+evl$ 

(C265)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C266)  a522 :ev5-ev5ax*drcq2+coe*d5q2$ 

(C267)  bin2[2,2] : cgl*al22+cg2*a422+cg3*a522$ 
(C268)  al23:q2*dlq3$ 

(C269)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C270)  a523 : -ev5ax*drcq3+coe*d5q3$ 

(C271)  bm2[2,3] : cgl*al23+cg2*a423+cg3*a523$ 
(C272)  al24;q2*dlq4$ 

(C273)  a424 :ev4ax*drcq4+coel*d4q4$ 

(C274 )  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C275)  bm2[2,4] :cgl*al24+cg2*a424+cg3*a524$ 
(C276)  al25:q2*dlq5$ 

(C277 )  a425 : ev4ax*drcq5+coel*d4q5$ 

(C278 )  a525 ; -ev5ax*drcq5+coe*d5q5$ 

(C279)  bm2[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
(C280)  rcayt:rc*ayt$ 

(C281)  ev4ay: ev4*ayt$ 

(C282)  ev5ay:ev5*ayt$ 

(C283)  coel:q3+rcayt$ 

(C284)  coe;q3-rcayt$ 

(C285)  al31:q3*dlql$ 

( C2  8  6 )  a4  3 1 : e v4  ay *dr cql+coe 1 *d4 ql $ 

(C287)  a531: -ev5ay*drcql+coe*d5ql$ 

(C288)  bm2[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
(C289)  al32:q3*dlq2$ 

(C290)  a432 : ev4ay*drcq2+coel*d4q2$ 

(C291)  a532 ;-ev5ay*drcq2+coe*d5q2$ 

(C292)  bm2 [3,2] :cgl*al32+cg2*a432+cg3*a532$ 
(C293)  al33:q3*dlq3+evl$ 

(C294)  a433 :ev4+ev4ay*drcq3+coel*d4q3$ 

(C295)  a533 :ev5-ev5ay*drcq3+coe*d5q3$ 

(C296)  bm2[3,3] :cgl*al33+cg2*a433+cg3*a533$ 
(C297)  al34:q3*dlq4$ 

(C298 )  a434 : ev4ay*drcq4+coel*d4q4$ 

(C299)  a534 : -ev5ay*drcq4+coe*d5q4$ 

(C300)  bia2[3,4]  :cgl*al34+cg2*a4344-cg3*a534$ 
(C301)  al35;q3*dlq5$ 

(C302 )  a435 : ev4ay*drcq5+coel*d4q5$ 

(C303 )  a535 : -ev5ay*drcq5+coe*d5q5$ 
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(C304) 

(C305) 

(C306) 

(C307) 

(C308) 

(C309) 

(C310) 

(C311) 

(C312) 

(C313) 

(C314) 

(C315) 

(C316) 

(C317) 

(C318) 

(C319) 

(C320) 

(C321) 

(C322) 

(C323) 

(C324) 

(C325) 

(C326) 

(C327) 

(C328) 

(C329) 

(C330) 

(C331) 

(C332) 

(C333) 

(C334) 

(C335) 

(C336) 

(C337) 

(C338) 

(C339) 

(C340) 

(C341) 

(C342) 

(C343) 

(C344) 

(C345) 

(C346) 

(C347) 

(C348) 

(C349) 

(C350) 

(C351) 

(C352) 

(C353) 

(C354) 


bm2 [3 , 5] :cgl*al35+cg2*a435+cg3*a535$ 

rcazt:rc*azt$ 

ev4az:ev4*azt$ 

ev5az : ev5  *azt $ 

coel : q4+rcazt$ 

coe:q4-rcazt$ 

al41;q4*dlql$ 

a44 1 : ev4az  *drcql+coel*d4ql$ 

a541:-ev5az*drcql+coe*d5ql$ 

bin2 [4, 1]  ;cgl*al41+cg2*a441+cg3*a541$ 

al42 :q4*dlq2$ 

a442 :ev4az*drcq2+coel*d4q2$ 

a542 : -ev5az*drcq2+coe*d5q2$ 

bm2 [4, 2] :cgl*al42+cg2*a442+cg3*a542$ 

al43:q4*dlq3$ 

a443 :ev4az*drcq3+coel*d4q3$ 

a543 ; -ev5az*drcq3+coe*d5q3$ 

bm2[4, 3] ;cgl*al43+cg2*a443+cg3*a543$ 

al44 :q4*dlq4+evl$ 

a444 :ev4+ev4az*drcq4+coel*d4q4$ 

a544 : ev5-ev5az*drcq4+coe*d5q4$ 

bm2 [4 , 4 ] : cgl*al44+cg2*a444+cg3*a544$ 

al45:q4*dlq5$ 

a445 : ev4az*drcq5+coel*d4q5$ 

a545 : -ev5az*drcq5+coe*d5q5$ 

bm2 [4, 5] :cgl*al45+cg2*a445+cg3*a545$ 

rctt:rc*tt$ 

coe: 0 , 5* (q2**2+q3**2+q4**2) *q6$ 
rt : rc*dttql+tt*drcql$ 
al51:2*coe*dlql$ 

a451;ev4* (depql+rt) +(pp+rctt) *d4ql$ 

a551:ev5* (depql-rt)+(pp-rctt) *d5ql$ 

bm2 [5, 1] ;cgl*al51+cg2*a451+cg3*a551$ 

rt : rc*dttq2+tt*drcq2  $ 

al52 : coe*dlq2-dlql*q2$ 

a4  5  2 : ev4  * ( depq2  +rt )  +  ( pp+rctt ) *d4q2  $ 

a552 : ev5* (depq2-rt) + (pp-rctt) *d5q2$ 

bm2 [5,2]: cgl*al52+cg2*a452+cg3*a552$ 

rt : rc*dttq3+tt*drcq3  $ 

al53 : coe*dlq3-dlql*q3$ 

a453 :ev4* (depq3+rt) + (pp+rctt) *d4q3$ 

a553 : ev5* (depq3-rt) + (pp-rctt) *d5q3$ 

bin2[5,3]  :cgl*al53+cg2*a453+cg3*a553$ 

rt : rc*dttq4+tt*drcq4  $ 

al54 : coe*dlq4-dlql*q4$ 

a4  5  4 : ev4  * ( depq4 +rt )  +  ( pp+rctt ) *d4  q4  $ 

a554 : ev5* (depq4-rt) + (pp-rctt) *d5q4$ 

bm2 [5,4]: cgl*al54+cg2*a454+cg3*a554$ 

rt: tt*drcq5$ 

al55 : coe*dlq5$ 

a455:ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
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(C355) 

(C356) 

(C357) 

(C358) 


(D358) 


(C359) 

i 


a555 : ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
bm2 [5, 5] :cgl*al55+cg2*a455+cg3*a555$ 
dif f : bml . m-m . bm2 $ 
diff ;ratexpand(diff )  ; 

[  0  0  0  0  0  ] 

[  ] 

[  0  0  0  0  0  ] 

[  ] 

[  0  0  0  0  0  ] 

[  ] 

[  0  0  0  0  0  ] 

[  ] 

[  0  0  0  0  0  ] 

closefile(Bmsup) $ 
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(C3)  bml: matrix ( [0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 
,0,0, 0,0])$ 

( C4 )  bm2 : matrix ([0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0 
,0,0, 0,0])$ 

(C5)  m: matrix ( [1,0,0,0,0],[0,1,0,0,0],[0,0,1,0,0],[0,0,0,-1,0],[0, 
0,0,0,!])$ 

(C6)  diff: matrix ( [0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[0,0,0,0,0],[ 


0,0,0, 0,0])$ 

(C7)  sign:-l$ 

(C8)  cggl: (gam-1) /gam$ 

(C9)  cgg2;l/(2*gam)$ 

(CIO)  etx:0.0$ 

(Cll)  sada:sqrt(etx**2+ety**2+etz**2)  $ 
(C12)  axt:etx/sada$ 

(C13)  aYt:ety/sada$ 

(C14)  azt:etz/sada$ 

(CIS)  rqrq:q2**2+q3**2+q4**2$ 

(C16)  q6:l/ql$ 

(C17)  pr: (gam-1) *(q5-0.5*rqrq*q6) $ 
(C18)  prgam:pr*gam$ 

(C19)  pp:q5+pr$ 

(C20)  c:sqrt(prgam*q6) $ 

(C21)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 
(C22)  rc:ql*c$ 

(C23)  csad:c*sada$ 

(C24)  el:tt*sada$ 

( C2  5 )  e4 : el+csad$ 

(C26)  e5;el-csad$ 

(C27)  evl:0.0$ 

(C28)  ev4:0.0$ 

(C29)  ev5:0.5*(e5+sign*abs(e5)  )$ 

(C30)  cgl;0.0$ 

(C31)  cg2:0.0$ 

(C32)  cg3:cgg2$ 

(C33)  dlql:-evl*q6$ 

(C34)  dlq2:etx*q6$ 

(C35)  dlq3:ety*q6$ 

(C36)  dlq4:etz*q6$ 

(C37)  dlq5;0.0$ 

(C38)  coe : gam* (gam-1) / (2*rc) $ 

(C39)  gmlq6: (gam-1) *q6$ 

(C40)  drcql:coe*q5$ 

(C41)  drcq2:-coe*q2$ 

(C42)  drcq3:-coe*q3$ 

(C43)  drcq4:-coe*q4$ 

(C44)  drcqS : coe*ql$ 

( C4  5 )  dcql : ( drcql-c ) *q6  $ 

(C46)  dcq2 :drcq2*q6$ 

(C47)  dcq3 ;drcq3*q6$ 

(C48)  dcq4;drcq4*q6$ 

(C49)  dcq5:drcq5*q6$ 
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(C50)  depql:0.5*ginlq6*rqrq*q6$ 

(C51)  depq2:-q2*gmlq6$ 

(C52)  depq3;-q3*ginlq6$ 

(C53)  depq4 : -q4*gmlq6$ 

(C54)  depq5;gam$ 

(C55)  dttql:-tt*q6$ 

(C56)  dttq2;axt*q6$ 

(C57)  dttq3:ayt*q6$ 

(C58)  dttq4:azt*q6$ 

(C59)  dttq5:0.0$ 

(C60)  d4ql:sada* (dttql+dcql) $ 

(C61)  d4q2;sada*(dttq2+dcq2) $ 

(C62)  d4q3 :sada* (dttq3+dcq3) $ 

(C63)  d4q4:sada* (dttq4+dcq4) $ 

(C64)  d4q5:sada*dcq5$ 

(C65)  d5ql;sada*(dttql-dcql) $ 

(C66)  d5q2:sada* (dttq2“dcq2) $ 

(C67)  d5q3 :sada* (dttq3-dcq3) $ 

(C68)  d5q4:sada* (dttq4-dcq4) $ 

(C69)  d5q5:~d4q5$ 

(C70)  a411:ev4+ql*d4ql$ 

(C71)  a511:ev5+ql*d5ql$ 

(C72)  bml[l,l] :cg2*a411+cg3*a511$ 

(C73)  bml[l,2]:  (cgl*dlq2+cg2*d4q2+cg3*d5q2)  *ql$ 
(C74)  bml[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
(C75)  bml[l,4]: (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 

(C76)  bml[l,5] : (cg2*d4q5+cg3*d5q5) *ql$ 

(C77)  rcaxt:rc*axt$ 

(C78)  ev4ax:ev4*axt$ 

(C79)  ev5ax:ev5*axt$ 

(C80)  coel:q2+rcaxt$ 

(C81)  coe:q2-rcaxt$ 

(C82)  al21:q2*dlql$ 

(C83)  a421;ev4ax*drcql+coel*d4ql$ 

( C84 )  a52 1 : -ev5ax*drcql+coe*d5ql$ 

(C85)  binl[2,l]  :cgl*al21+cg2*a421+cg3*a521$ 

(C86)  al22:q2*dlq2+evl$ 

(C87)  a422; ev4 +ev4  ax*dr cq2  +coe I*d4q2  $ 

( C8 8 )  a52  2 : ev5-ev5ax*dr cq2+coe*d5q2 $ 

(C89)  bml[2,2] : cgl*al22+cg2*a422+cg3*a522$ 

(C90)  al23:q2*dlq3$ 

(C91)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C92)  a523 :-ev5ax*drcq3+coe*d5q3$ 

(C93)  bial[2,3]  :cgl*al23+cg2*a423+cg3*a523$ 

(C94)  al24:q2*dlq4$ 

(C95)  a424 :ev4ax*drcq4+coel*d4q4$ 

(C96)  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C97)  bml[2,4] : cgl*al24+cg2*a424+cg3*a524$ 

(C98)  al25;q2*dlq5$ 

(C99 )  a425 : ev4ax*drcq5+coel*d4q5$ 

(ClOO )  a525 ; -ev5ax*drcq5+coe*d5q5$ 
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(ClOl)  bml[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
(Cl 02)  rcayt:rc*ayt$ 

{C103)  ev4ay: ev4*ayt$ 

(C104)  evSay: ev5*ayt$ 

(C105)  coel:q3+rcayt$ 

(C106)  coe:q3-rcayt$ 

(C107)  al31:q3*dlql$ 

(C108)  a431:ev4ay*drcql+coel*d4ql$ 

(C109 )  a53 1 : -ev5ay*drcql+coe*d5ql$ 

(Clio)  binl[3,l]  : cgl*al31+cg2*a431+cg3*a531$ 
(Clll)  al32:q3*dlq2$ 

(C112 )  a432 : ev4ay*drcq2+coel*d4q2$ 

(C113)  a532:-ev5ay*drcq2+coe*d5q2$ 

(C114)  binl[3,2]  :cgl*al32+cg2*a432+cg3*a532$ 
(C115)  al33;q3*dlq3+evl$ 

(C116)  a433  :ev4+ev4ay*drcq3+coel*d4q3$ 

(Cl 17)  a533 :ev5-ev5ay*drcq3+coe*d5q3$ 

(C118)  bml[3,3] :cgl*al33+cg2*a433+cg3*a533$ 
(C119)  al34:q3*dlq4$ 

(C120)  a434 : ev4ay*drcq4+coel*d4q4$ 

(C121)  a534 : -ev5ay*drcq4+coe*d5q4$ 

(C122)  binl[3, 4]  : cgl*al34+cg2*a434+cg3*a534$ 
(C123)  al35:q3*dlq5$ 

(C124)  a435:ev4ay*drcq5+coel*d4q5$ 

(C125)  a535 : -ev5ay*drcq5+coe*d5q5$ 

(C126)  bml[3,5]  : cgl*al35+cg2*a435+cg3*a535$ 
(C127)  rcazt;rc*azt$ 

(C128)  ev4az:ev4*azt$ 

(C129)  ev5az;ev5*azt$ 

(C130)  coel:q4+rcazt$ 

(C131)  coe:q4-rcazt$ 

(C132)  al41:q4*dlql$ 

(C133)  a441:ev4az*drcql+coel*d4ql$ 

(C134)  a541:-ev5az*drcql+coe*d5ql$ 

(C135)  bml[4, 1]  ;cgl*al41+cg2*a441+cg3*a541$ 
(C136)  al42:q4*dlq2$ 

(C137)  a442: e v4 a z *dr cq2  +coe 1 *d4 q2 $ 

(C138 )  a542 : -ev5az*drcq2+coe*d5q2$ 

(C139)  bml[4,2]  ;cgl*al42+cg2*a442+cg3*a542$ 
(C140)  al43:q4*dlq3$ 

(C141)  a443 :ev4az*drcq3+coel*d4q3$ 

(C142 )  a543 : -ev5az*drcq3+coe*d5q3$ 

(C143)  binl[4, 3]  : cgl*al43+cg2*a443+cg3*a543$ 
(C144)  al44:q4*dlq4+evl$ 

(C145)  a444 :ev4+ev4az*drcq4+coel*d4q4$ 
(C146)  a544 :ev5-ev5az*drcq4+coe*d5q4$ 

(C147)  bml[4,4] :cgl*al44+cg2*a444+cg3*a544$ 
(C148)  al45:q4*dlq5$ 

(C149 )  a445 : ev4az*drcq5+coel*d4q5$ 

(C150)  a545: -ev5az*drcq5+coe*d5q5$ 

(C151)  bml[4, 5] ; cgl*al45+cg2*a445+cg3*a545$ 
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(C152) 

(C153) 

(C154) 

(C155) 

(C156) 

(C157) 

(C158) 

(C159) 

(C160) 

(C161) 

(C162) 

(C163) 

(C164) 

(C165) 

(C166) 

(C167) 

(C168) 

(C169) 

(C170) 

(C171) 

(C172) 

(C173) 

(C174) 

(C175) 

(C176) 

(C177) 

(C178) 

(C179) 

(C180) 

(C181) 

(C182) 

(C183) 

(C184) 

(C185) 

(C186) 

(C187) 

(C188) 

(C189) 

(C190) 

(C191) 

(C192) 

(C193) 

(C194) 

(C195) 

(C196) 

(C197) 

(C198) 

(C199) 

(C200) 

(C201) 

(C202) 


rctt:rc*tt$ 

coe:0.5*(q2**2+q3**2+q4**2)  *q6$ 
rt : rc*dttql+tt*drcql$ 
al51;2*coe*dlql$ 

a451:ev4* (depql+rt)  +  (pp+rctt)  *d4ql$ 

a551:ev5* (depql-rt) + (pp-rctt) *d5ql$ 

binl[5,l]  :cgl*al51+cg2*a451+cg3*a551$ 

rt;rc*dttq2+tt*drcq2$ 

al52:coe*dlq2-dlql*q2$ 

a452 : ev4* (depq2+rt) + (pp+rctt) *d4q2$ 

a552 : ev5* (depq2-rt) + (pp-rctt) *d5q2$ 

bml [5 , 2 ] : cgl*al52+cg2*a452+cg3*a552$ 

rt : rc*dttq3+tt*drcq3  $ 

al53 :coe*dlq3-dlql*q3$ 

a453 :ev4* (depq3+rt) + (pp+rctt) *d4q3$ 

a553 : ev5* (depq3-rt) + (pp-rctt) *d5q3$ 

bml [5, 3] :cgl*al53+cg2*a453+cg3*a553$ 

rt:rc*dttq4+tt*drcq4$ 

al54 : coe*dlq4-dlql*q4$ 

a454 :ev4* (depq4+rt) + (pp+rctt) *d4q4$ 

a554:ev5* (depq4-rt) + (pp-rctt) *d5q4$ 

bml[5, 4] :cgl*al54+cg2*a454+cg3*a554$ 

rt: tt*drcq5$ 

al55 : coe*dlq5$ 

a455:ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
a555:ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
bml [5,5]: cgl*al55+cg2  *a455+cg3  *a555$ 

ql:ql$ 

q2:q2$ 

q3:q3$ 

q4 : -q4  $ 

q5:q5$ 

etz : -etz ; 

cggl: (gam-1) /gam$ 

cgg2: 1/ (2*gam) $ 

sada : sqrt ( etx*  *  2  +ety *  *  2  +et z  *  *  2 ) $ 

axt:etx/sada$ 

ayt:ety/sada$ 

azt:etz/sada$ 

rqrq:q2**2+q3**2+q4**2$ 

q6:l/ql$ 

pr : (gam-1) * (q5-0 . 5*rqrq*q6) $ 

prgam : pr *gam$ 

pp : q5+pr$ 

c: sqrt (prgam*q6) $ 

tt: (q2*axt+q3*ayt+q4*azt) *q6$ 

rc:ql*c$ 

csad:c*sada$ 

el: tt*sada$ 

e4 :el+csad$ 

e5:el-csad$ 
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(C203)  evl:0.0$ 

(C204)  ev4:0.0$ 

(C205)  ev5:0.5*(e5+sign*abs(e5)  )$ 

(C206)  cgl:0.0$ 

(C207)  cg2:0.0$ 

(C208)  cg3:cgg2$ 

(C209)  dlql:-evl*q6$ 

(C210)  dlq2 :etx*q6$ 

(C211)  dlq3:ety*q6$ 

(C212)  dlq4:etz*q6$ 

(C213)  dlq5:0.0$ 

(C214)  coe:gam* (gam-1) / (2*rc) $ 

(C215)  gmlq6: (gam-1) *q6$ 

(C216)  drcql:coe*q5$ 

(C217)  drcq2:-coe*q2$ 

(C218)  drcq3;-coe*q3$ 

(C219)  drcq4:-coe*q4$ 

(C220)  drcq5:coe*ql$ 

(C221)  dcql: (drcql-c)*q6$ 

(C222)  dcq2 :drcq2*q6$ 

(C223)  dcq3 :drcq3*q6$ 

(C224)  dcq4 :drcq4*q6$ 

(C225)  dcq5:drcq5*q6$ 

(C226)  depql: 0.5*gmlq6*rqrq*q6$ 

(C227)  depq2:-q2*gmlq6$ 

{C228)  depq3:-q3*gmlq6$ 

(C229)  depq4:-q4*gmlq6$ 

(C230)  depq5:gam$ 

(C231)  dttql:-tt*q6$ 

(C232)  dttq2:axt*q6$ 

(C233)  dttq3:ayt*q6$ 

(C234)  dttq4 :azt*q6$ 

(C235)  dttq5;0.0$ 

(C236)  d4ql:sada* (dttql+dcql) $ 

(C237)  d4q2:sada* (dttq2+dcq2) $ 

(C238)  d4q3;sada*(dttq3+dcq3)$ 

(C239)  d4q4:sada* (dttq4+dcq4) $ 

(C240)  d4q5;sada*dcq5$ 

(C241)  d5ql:sada* (dttql-dcql) $ 

(C242)  d5q2 :sada* (dttq2-dcq2) $ 

(C243)  d5q3:sada*(dttq3-dcq3) $ 

(C244)  d5q4 : sada* (dttq4-dcq4) $ 

(C245)  d5q5:-d4q5$ 

(C246)  a411:ev4+ql*d4ql$ 

(C247)  a511:ev5+ql*d5ql$ 

(C248)  bm2 ; matrix ( [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], 
[0,0, 0,0,0])$ 

(C249)  bm2[l, 1] : cg2*a411+cg3*a511$ 

(C250)  bm2[l,2]: (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 

(C251)  bm2[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 

(C252)  bm2U/4]:  (cgl*dlq4+cg2*d4q4+cg3*d5q4)*ql$ 
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(C253)  bia2[l,5]  :  (cg2*d4q5+cg3*d5q5)  *ql$ 
(C254)  rcaxt:rc*axt$ 

(C255)  ev4ax: ev4*axt$ 

(C256)  ev5ax:ev5*axt$ 

(C257)  coel:q2+rcaxt$ 

(C258)  coe:q2-rcaxt$ 

(C259)  al21:q2*dlql$ 

(C260)  a421:ev4ax*drcql+coel*d4ql$ 

(C261)  a521;-ev5ax*drcql+coe*d5ql$ 

(C262)  bm2 [2, 1] : cgl*al21+cg2*a421+cg3*a521$ 
(C263)  al22:q2*dlq2+evl$ 

(C264)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C265 )  a522 ; ev5-ev5ax*drcq2+coe*d5q2$ 

(C266)  bin2  [2,2]  : cgl*al22+cg2*a422+cg3*a522$ 
(C267)  al23:q2*dlq3$ 

(C268)  a423 :ev4ax*drcq3+coel*d4q3$ 

( C2  69 )  a52  3 : -ev5ax*drcq3+coe*d5q3  $ 

(C270)  bm2 [2, 3] :cgl*al23+cg2*a423+cg3*a523$ 
(C271)  al24:q2*dlq4$ 

(C272)  a424 :ev4ax*drcq4+coel*d4q4$ 

(C273 )  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C274)  bin2[2,4]  ; cgl*al24+cg2*a424+cg3*a524$ 
(C275)  al25:q2*dlq5$ 

(C276)  a425 ; ev4ax*drcq5+coel*d4q5$ 

(C277 )  a525 : -ev5ax*drcq5+coe*d5q5$ 

(C278)  bm2[2,5] ; cgl*al25+cg2*a425+cg3*a525$ 
(C279)  rcayt : rc*ayt$ 

(C280)  ev4ay: ev4*ayt$ 

(C281)  ev5ay;ev5*ayt$ 

(C282)  coel:q3+rcayt$ 

(C283)  coe:q3-rcayt$ 

(C284)  al31:q3*dlql$ 

(C285 )  a43 1 ; ev4ay*drcql+coel*d4ql$ 

( C2  8  6 )  a5 3 1 : -evSay *drcql+coe*d5ql $ 

(C287)  bm2[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
(C288)  al32:q3*dlq2$ 

(C289)  a432 :ev4ay*drcq2+coel*d4q2$ 

(C290)  a532 : -ev5ay*drcq2+coe*d5q2$ 

(C291)  bm2 [3,2] :cgl*al32+cg2*a432+cg3*a532$ 
(C292)  al33:q3*dlq3+evl$ 

(C293 )  a433 : ev4+ev4ay*drcq3+coel*d4q3$ 
(C294)  a533 ;ev5-ev5ay*drcq3+coe*d5q3$ 

(C295)  bm2[3,3] : cgl*al33+cg2*a433+cg3*a533$ 
(C296)  al34;q3*dlq4$ 

(C297 )  a434 : ev4ay*drcq4+coel*d4q4$ 

(C298 )  a534 : -ev5ay*drcq4+coe*d5q4$ 

(C299)  bin2[3,4]  : cgl*al34+cg2*a434+cg3*a534$ 
(C300)  al35:q3*dlq5$ 

( C3  01 )  a4  3  5 : ev4 ay *drcq5+coel*d4q5 $ 

(C302 )  a535 ; -ev5ay*drcq5+coe*d5q5$ 

(C303)  bm2[3,5] :cgl*al35+cg2*a435+cg3*a535$ 
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(C304)  rcazt:rc*azt$ 

(C305)  ev4az:ev4*azt$ 

(C306)  ev5az:ev5*azt$ 

(C307)  coel:q4+rcazt$ 

(C308)  coe:q4-rcazt$ 

(C309)  al41:q4*dlql$ 

(C310)  a441:ev4az*drcql+coel*d4ql$ 

(C3 11 )  a54 1 : -ev5az *drcql+coe*d5ql$ 

( C3 12 )  bin2  [  4 , 1  ] :  cgl*al4  l+cg2  *a4  4  l+cg3  *a54 1$ 
(C313)  al42 :q4*dlq2$ 

(C3 14 )  a442 : ev4az*drcq2+coel*d4q2$ 

(C315)  a542:-ev5az*drcq2+coe*d5q2$ 

(C316)  bm2[4,2] : cgl*al42+cg2*a442+cg3*a542$ 

(C317)  al43:q4*dlq3$ 

(C318)  a443 ;ev4az*drcq3+coel*d4q3$ 

(C319)  a543 ; -ev5az*drcq3+coe*d5q3$ 

(C320)  bin2[4,3]  : cgl*al43+cg2*a443+cg3*a543$ 

(C321)  al44:q4*dlq4+evl$ 

(C322 )  a444 : ev4+ev4az*drcq4+coel*d4q4$ 

(C323 )  a544 : ev5-ev5az*drcq4+coe*d5q4$ 

(C324)  bm2[4,4] : cgl*al44+cg2*a444+cg3*a544$ 
(C325)  al45:q4*dlq5$ 

(C326)  a445:ev4az*drcq5+coel*d4q5$ 

(C327 )  a545 : -ev5az*drcq5+coe*d5q5$ 

(C328)  bm2[4,5] ; cgl*al45+cg2*a445+cg3*a545$ 

(C329)  rctt:rc*tt$ 

(C330)  coeiO.S* (q2**2+q3**2+q4**2)  *q6$ 
(C331)  rt;rc*dttql+tt*drcql$ 

(C332)  al51:2*coe*dlql$ 

(C333  )  a451; ev4 * ( depql+rt )  +  ( pp+r ctt )  *d4 ql $ 
(C334)  a551:ev5* (depql-rt) +(pp-rctt) *d5ql$ 
(C335)  bm2[5,13 ;cgl*al51+cg2*a451+cg3*a551$ 
(C336)  rt:rc*dttq2+tt*drcq2$ 

(C337)  al52:coe*dlq2-dlql*q2$ 

(C338)  a452;ev4*(depq2+rt)+(pp+rctt) *d4q2$ 
(C339)  a552:ev5*(depq2-rt)+(pp-rctt) *d5q2$ 
(C340)  bm2[5,2] : cgl*al52+cg2*a452+cg3*a552$ 
(C341)  rt:rc*dttq3+tt*drcq3$ 

(C342)  al53:coe*dlq3-dlql*q3$ 

(C343)  a453:ev4* (depq3+rt)  +  (pp+rctt)  *d4q3$ 
(C344)  a553:ev5*(depq3-rt)+(pp-rctt) *d5q3$ 
(C345)  bni2[5,3]  ; cgl*al53+cg2*a453+cg3*a553$ 
(C346)  rt;rc*dttq4+tt*drcq4$ 

(C347)  al54;coe*dlq4-dlql*q4$ 

(C348)  a454:ev4*(depq4+rt)+(pp+rctt) *d4q4$ 
(C349)  a554;ev5*(depq4-rt)+(pp-rctt) *d5q4$ 
(C350)  bm2[5,4] :cgl*al54+cg2*a454+cg3*a554$ 

(C351)  rt:tt*drcq5$ 

(C352)  al55;coe*dlq5$ 

(C353)  a455;ev4*(depq5+rt)  +  (pp+rctt)  *d4q5$ 

(C354 )  a555 ; ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
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(C355)  bia2[5,5]  :cgl*al55+cg2*a455+cg3*a555$ 
(C356)  diff :bml.m-in.bm2$ 

(C357)  diff ;ratexpand (diff )  ; 

[  0  0  0  0  0  ] 

[  3 

[  0  0  0  0  0  ] 

[  ] 

(D357)  [00000] 

[  3 

[  0  0  0  0  0  ] 

[  3 

[  0  0  0  0  0  ] 

(C358)  closef ile(Bmsub) $ 

i 
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(C3)  cp:inatrix(  [0,0, 0,0,0],  [0, 0,0,0, 0] ,  [0,0, 0,0,0],  [0,0,0, 

(C4)  cm: matrix ( [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0], [0,0,0, 

0, 0, 0, 0] ) $ 

(C5)  dif f ; matrix ( [0,0, 0,0,0], [0,0, 0,0,0], [0,0, 0,0,0],  [0,0, 

0,0, 0,0,0])$ 

(C6)  m: matrix ( [1,0, 0,0,0] , [0,1, 0,0,0] , [0,0, 1,0,0]  ,  [0,0,0,- 
0,0, 0,1])$ 

(C7)  sign;l$ 

(C8)  cggl : (gam-1) /gam$ 

(C9)  cgg2:l/ (2*gam)$ 

(CIO)  sada:sqrt(ztx**2-t-zty**2-»-ztz**2)  $ 

(Cll)  axt: ztx/sada$ 

(C12)  ayt: zty/sada$ 

(C13)  azt:ztz/sada$ 

(C14)  rqrq:q2**2+q3**2+q4**2$ 

(C15)  q6:l/ql$ 

(C16)  pr: (gam-1) *(q5-0.5*rqrq*q6)$ 

(C17)  prgam:pr*gam$ 

(C18)  pp:q5-i-pr$ 

( C19 )  c : sqrt ( prgam*q6 )  $ 

(C20)  tt:  (q2*axt-i-q3*ayt-i-q4*azt)  *q6$ 

(C21)  rc:ql*c$ 

(C22)  csad;c*sada$ 

(C23)  el:tt*sada$ 

(C24)  e4:el+csad$ 

(C25)  e5:el-csad$ 

(C26)  evl:el$ 

(C27)  ev4:e4$ 

(C28)  ev5:el$ 

(C29)  cgl:cggl$ 

(C30)  cg2:cgg2$ 

(C31)  cg3:cgg2$ 

(C32)  dlql:-evl*q6$ 

(C33)  dlq2:ztx*q6$ 

(C34)  dlq3:zty*q6$ 

(C35)  dlq4:ztz*q6$ 

(C36)  dlq5;0.0$ 

(C37)  coezgam* (gam-1) / (2*rc) $ 

(C38)  gmlq6: (gam-1) *q6$ 

(C39)  drcql:coe*q5$ 

(C40)  drcq2 :-coe*q2$ 

( C4 1 )  dr cq3 ; -coe*q3  $ 

(C42)  drcq4 :-coe*q4$ 

(C43)  drcqS : coe*ql$ 

(C44)  dcql; (drcql-c) *q6$ 

(C45)  dcq2:drcq2*q6$ 

(C46)  dcq3:drcq3*q6$ 

(C47)  dcq4:drcq4*q6$ 

(C48)  dcq5:drcq5*q6$ 

(C49)  depql:0.5*gmlq6*rqrq*q6$ 


0,0], [0, 
0,0], [0, 
0,0,0], [ 
•1,0],  [0, 
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(C50)  depq2:-q2*gmlq6$ 

(C51)  depq3;-q3*gmlq6$ 

(C52)  depq4 : -q4*gmlq6$ 

(C53)  depq5;gam$ 

(C54)  dttql;-tt*q6$ 

(C55)  dttq2;axt*q6$ 

(C56)  dttq3 :ayt*q6$ 

(C57)  dttq4 :azt*q6$ 

(C58)  dttq5:0.0$ 

(C59)  d4ql:sada* (dttql+dcql) $ 

(C60)  d4q2 :sada* (dttq2+dcq2) $ 

( C6 1 )  d4q3 : sada* ( dttq3+dcq3 ) $ 

(C62)  d4q4;sada*(dttq4+dcq4)$ 

(C63)  d4q5:sada*dcq5$ 

(C64)  d5ql;sada* (dttql-dcql)  $ 

(C65)  d5q2:sada*(dttq2-dcq2)$ 

(C66)  d5q3;sada*(dttq3-dcq3)$ 

(C67)  d5q4:sada*(dttq4-dcq4)$ 

(C68)  d5q5;-d4q5$ 

(C69)  a411:ev4+ql*d4ql$ 

(C70)  a511:ev5+ql*d5ql$ 

(C71)  cp[l,l] :cg2*a411+cg3*a511$ 

(C72)  cp[l,23 : (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 

(C73)  cp[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
(C74)  cp[l,4] : (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C75)  cp[l,5] : (cg2*d4q5+cg3*d5q5) *ql$ 

(C76)  rcaxt:rc*axt$ 

(C77)  ev4ax:ev4*axt$ 

(C78)  ev5ax:ev5*axt$ 

(C79)  coel:q2+rcaxt$ 

(C80)  coe:q2-rcaxt$ 

(C81)  al21:q2*dlql$ 

( C8 2 )  a4 2 1 : ev4ax*drcql+coel*d4ql$ 

( C8  3 )  a52 1 : -ev5ax*drcql+coe*d5ql$ 

(C84)  cp[2,l] ;cgl*al21+cg2*a421+cg3*a521$ 

(C85)  al22:q2*dlq2+evl$ 

(C86)  a422:ev4+ev4ax*drcq2+coel*d4q2$ 

( C8 7 )  a52  2 : ev5-ev5ax*drcq2  +coe*d5q2 $ 

(C88)  cp[2,2] ;cgl*al22+cg2*a422+cg3*a522$ 

(C89)  al23:q2*dlq3$ 

( C9  0 )  a4  2  3 : ev4ax*drcq3+coel*d4q3  $ 

( C9 1 )  a52  3 : -ev5ax*dr cq3  +coe*d5q3  $ 

(C92)  cp[2,3] :cgl*al23+cg2*a423+cg3*a523$ 

(C93)  al24:q2*dlq4$ 

(C94)  a424 :ev4ax*drcq4+coel*d4q4$ 

(C95)  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C96)  cp[2,4] ;cgl*al24+cg2*a424+cg3*a524$ 

(C97)  al25:q2*dlq5$ 

(C98 )  a425 : ev4ax*drcq5+coel*d4q5$ 

( C9 9 )  a52  5 : -ev5ax*drcq5+coe*d5q5$ 

(ClOO)  cp[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
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(ClOl)  rcayt:rc*ayt$ 

(C102)  ev4ay ; ev4*ayt$ 

(C103)  ev5ay : ev5*ayt$ 

(C104)  coel:q3+rcayt$ 

(C105)  coe:q3-rcayt$ 

(C106)  al31:q3*dlql$ 

(C107 )  a43 1 : ev4ay*drcql+coel*d4ql$ 

(C108)  a531; -ev5ay*drcql+coe*d5ql$ 

(C109)  cp[3,l] :cgl*al31+cg2*a431+cg3*a531$ 

(Clio)  al32:q3*dlq2$ 

(Clll)  a432 :ev4ay*drcq2+coel*d4q2$ 

(C112 )  a532 : -ev5ay*drcq2+coe*d5q2$ 

(C113)  cp[3,2] :cgl*al32+cg2*a432+cg3*a532$ 

(C114)  al33:q3*dlq3+evl$ 

(C115)  a433  :ev4+ev4ay*drcq3+coel*d4q3$ 

(C116)  a533 :ev5-ev5ay*drcq3+coe*d5q3$ 

(C117)  cp[3 , 3 ] :cgl*al33+cg2*a433+cg3*a533$ 
(C118)  al34:q3*dlq4$ 

(C119)  a434;ev4ay*drcq4+coel*d4q4$ 

(C120)  a534 : -ev5ay*drcq4+coe*d5q4$ 

(C121)  cp[3,4] :cgl*al34+cg2*a434+cg3*a534$ 

(C122)  al35:q3*dlq5$ 

(C123 )  a435 : ev4ay*drcq5+coel*d4q5$ 

(C124 )  a535 : -ev5ay*drcq5+coe*d5q5$ 

(C125)  cp[3,5] :cgl*al35+cg2*a435+cg3*a535$ 

(C126)  rcazt:rc*azt$ 

(C127)  ev4az:ev4*azt$ 

(C128)  ev5az : ev5*azt$ 

(C129)  coel:q4+rcazt$ 

(C130)  coe:q4-rcazt$ 

(C131)  al41:q4*dlql$ 

(C132 )  a441 : ev4az*drcql+coel*d4ql$ 

(C133 )  a541 : -ev5az*drcql+coe*d5ql$ 

(C134)  cp[4, 1] ;cgl*al41+cg2*a441+cg3*a541$ 
(C135)  al42;q4*dlq2$ 

(C136)  a442:ev4az*drcq2+coel*d4q2$ 

(C137 )  a542 : ~ev5az*drcq2+coe*d5q2$ 

(C138)  cp[4,2] ;cgl*al42+cg2*a442+cg3*a542$ 
(C139)  al43:q4*dlq3$ 

(C140)  a443:ev4az*drcq3+coel*d4q3$ 

(C141)  a543 : -ev5az*drcq3+coe*d5q3$ 

(C142)  cp[4,3] :cgl*al43+cg2*a443+cg3*a543$ 
(C143)  al44:q4*dlq4+evl$ 

(C144)  a444 : ev4+ev4az*drcq4+coel*d4q4$ 

(C145)  a544 : ev5-ev5az*drcq4+coe*d5q4$ 
(C146)  cp[4,4] :cgl*al44+cg2*a444+cg3*a544$ 

(C147)  al45:q4*dlq5$ 

(C148 )  a445 : ev4az*drcq5+coel*d4q5$ 

(C149 )  a545 ; -ev5az*drcq5+coe*d5q5$ 

(C150)  cp[4, 5] :cgl*al45+cg2*a445+cg3*a545$ 
(C151)  rctt:rc*tt$ 
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(C152) 

(C153) 

(C154) 

(C155) 

(C156) 

(C157) 

(C158) 

(C159) 

(C160) 

(C161) 

(C162) 

(C163) 

(C164) 

(C165) 

(C166) 

(C167) 

(C168) 

(C169) 

(C170) 

(C171) 

(C172) 

(C173) 

(C174) 

(C175) 

(C176) 

(C177) 

(C178) 

(C179) 

(C180) 

(C181) 

(C182) 

(C183) 

(C184) 

(C185) 

(C186) 

(C187) 

(C188) 

(C189) 

(C190) 

(C191) 

(C192) 

(C193) 

(C194) 

(C195) 

(C196) 

(C197) 

(C198) 

(C199) 

(C200) 

(C201) 

(C202) 


coe: 0.5* (q2**2+q3**2+q4**2) *q6$ 
rt : r c*dttql+tt *dr cql $ 
al51;2*coe*dlql$ 

a451 : ev4* (depql+rt) + (pp+rctt) *d4ql$ 

a551 : ev5* (depql-rt) + (pp-rctt) *d5ql$ 

cp [ 5 , 1] : cgl*al51+cg2*a451+cg3*a551$ 

rt : rc*dttq2+tt*drcq2  $ 

al52 : coe*dlq2-dlql*q2$ 

a4  5  2 : ev4  * ( depq2+rt )  +  ( pp+rctt ) *d4q2  $ 

a552 : ev5* (depq2-rt) + (pp-rctt) *d5q2$ 

cp[5,2] :cgl*al52+cg2*a452+cg3*a552$ 

rt:rc*dttq3+tt*drcq3$ 

al53 :coe*dlq3-dlql*q3$ 

a453 :ev4* (depq3+rt) + (pp+rctt) *d4q3$ 

a553 : ev5* (depq3-rt) + (pp-rctt) *d5q3$ 

cp [ 5 , 3 ] : cgl*al53+cg2*a453+cg3*a553$ 

rt : rc*dttq4+tt*drcq4  $ 

al54 : coe*dlq4-dlql*q4$ 

a454 : ev4* (depq4+rt) + (pp+rctt) *d4q4$ 

a554 : ev5* (depq4-rt ) + (pp-rctt) *d5q4$ 

cp [ 5 , 4 ] : cgl*al54+cg2  *a454+cg3*a554$ 

rt; tt*drcq5$ 

al55 : coe*dlq5$ 

a455;ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
a555 : ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
cp [ 5 , 5 ] ; cgl*al55+cg2  *a4  55+cg3  *a555$ 

ql:ql$ 
q2 :q2$ 
q3 :q3$ 
q4 :  -q4  $ 
q5:q5$ 
ztx:-ztx$ 
zty:-zty$ 
sign; -1$ 

cggl; (gam-1) /gam$ 
cgg2 ; 1/ (2*gam) $ 

sada: sqrt (ztx**2+zty**2+ztz**2)  $ 

axt; ztx/sada$ 

ayt: zty/sada$ 

azt:ztz/sada$ 

rqrq:q2**2+q3**2+q4**2$ 

q6;l/ql$ 

pr; (gam-1) *(q5-0.5*rqrq*q6) $ 

prgam : pr *gam$ 

pp ; q5+pr$ 

c; sqrt (prgam*q6) $ 

tt; (q2*axt+q3*ayt+q4*azt) *q6$ 

rc;ql*c$ 

csad;c*sada$ 

el;tt*sada$ 

e4;el+csad$ 
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(C203)  e5:el-csad$ 

(C204)  evl:el$ 

(C205)  ev4:el$ 

(C206)  ev5:e5$ 

(C209)  cgl:cggl$ 

(C208)  cg2:cgg2$ 

(C209)  cg3:cgg2$ 

(C210)  dlql:-evl*q6$ 

(C211)  dlq2;ztx*q6$ 

(C212)  dlq3:zty*q6$ 

(C213)  dlq4:ztz*q6$ 

(C214)  dlq5:0.0$ 

(C215)  coe:gam* (gam-l) / (2*rc) $ 

(C216)  gmlq6: (gam-l) *q6$ 

(C217)  drcql:coe*q5$ 

(C218)  drcq2 ; -coe*q2$ 

( C2 19 )  drcq3 : -coe*q3  $ 

( C2  2  0 )  dr cq4 : -coe*q4  $ 

(C221)  drcq5:coe*ql$ 

(C222)  dcql: (drcql-c) *q6$ 

(C223)  dcq2 :drcq2*q6$ 

(C224)  dcq3;drcq3*q6$ 

(C225)  dcq4:drcq4*q6$ 

(C226)  dcq5;drcq5*q6$ 

(C227)  depql: 0.5*gmlq6*rqrq*q6$ 

(C228)  depq2:-q2*gmlq6$ 

(C229)  depq3 ; -q3*gmlq6$ 

(C230)  depq4: -q4*gmlq6$ 

{C231)  depq5:gam$ 

(C232)  dttql: -tt*q6$ 

(C233)  dttq2:axt*q6$ 

(C234)  dttq3:ayt*q6$ 

(C235)  dttq4:azt*q6$ 

(C236)  dttq5:0.0$ 

(C237)  d4ql:sada* (dttql+dcql) $ 

(C238)  d4q2:sada*(dttq2+dcq2)$ 

(C239)  d4q3 :sada* (dttq3+dcq3) $ 

(C240)  d4q4;sada*(dttq4+dcq4)$ 

(C241)  d4q5:sada*dcq5$ 

(C242)  d5ql:sada* (dttql-dcql) $ 

(C243)  d5q2:sada*(dttq2-dcq2)$ 

(C244)  d5q3:sada*(dttq3-dcq3)$ 

(C245)  d5q4:sada*(dttq4-dcq4)$ 

(C246)  d5q5:-d4q5$ 

(C247)  a411:ev4+ql*d4ql$ 

(C248)  a511:ev5+ql*d5ql$ 

(C249)  cm[l,l] :cg2*a411+cg3*a511$ 

(C250)  cm[l,2] :  (cgl*dlq2+cg2*d4q2+cg3*d5q2)  *ql$ 
(C251)  cm[l,3] :  (cgl*dlq3+cg2*d4q3+cg3*d5q3)*ql$ 
(C252)  cm[l,4]:  (cgl*dlq4+cg2*d4q4+cg3*d5q4)  *ql$ 

(C253)  cm[l,5] ; (cg2*d4q5+cg3*d5q5)*ql$ 
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(C254)  rcaxt:rc*axt$ 

(C255)  ev4ax:ev4*axt$ 

(C256)  ev5ax:ev5*axt$ 

(C257)  coel:q2+rcaxt$ 

(C258)  coe:q2-rcaxt$ 

(C259)  al21:q2*dlql$ 

(C260)  a421:ev4ax*drcql+coel*d4ql$ 

(C261)  a521:-ev5ax*drcql+coe*d5ql$ 

(C262)  cin[2,l]  :cgl*al21+cg2*a421+cg3*a521$ 
(C263)  al22:q2*dlq2+evl$ 

(C264)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C265)  a522 :ev5“ev5ax*drcq2+coe*d5q2$ 

(C266)  cm[2,2] :cgl*al22+cg2*a422+cg3*a522$ 

(C267)  al23:q2*dlq3$ 

(C268)  a423 :ev4ax*drcq3+coel*d4q3$ 

( C2  69 )  a52  3 : -ev5ax*drcq3  +coe*d5q3  $ 

(C270)  cin[2,3]  : cgl*al23+cg2*a423+cg3*a523$ 
{C271)  al24:q2*dlq4$ 

(C272 )  a424 : ev4ax*drcq4+coel*d4q4$ 

(C273 )  a524 : -ev5ax*drcq4+coe*d5q4$ 

(C274)  cm[2,4] :cgl*al24+cg2*a424+cg3*a524$ 

(C275)  al25:q2*dlq5$ 

(C276)  a425:ev4ax*drcq5+coel*d4q5$ 

(C277 )  a525 ; -ev5ax*drcq5+coe*d5q5$ 

(C278)  cm[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
(C279)  rcayt:rc*ayt$ 

(C280)  ev4ay: ev4*ayt$ 

(C281)  ev5ay: ev5*ayt$ 

(C282)  coel:q3+rcayt$ 

(C283)  coe:q3-rcayt$ 

(C284)  al31:q3*dlql$ 

( C2  85 )  a4  3 1 : ev4ay *drcql+coel*d4ql$ 

( C2  8  6 )  a5  3 1 : -ev5ay *drcql+coe*d5ql$ 

(C287)  cm[3,l] ; cgl*al31+cg2*a431+cg3*a531$ 

(C288)  al32:q3*dlq2$ 

(C289)  a432:ev4ay*drcq2+coel*d4q2$ 

( C2  9  0 )  a5  3  2 : -ev5ay *drcq2+coe*d5q2  $ 

(C291)  cin[3,2]  ;cgl*al32+cg2*a432+cg3*a532$ 
(C292)  al33:q3*dlq3+evl$ 

(C293)  a433 ;ev4+ev4ay*drcq3+coel*d4q3$ 

(C294)  a533 ;ev5-ev5ay*drcq3+coe*d5q3$ 
(C295)  cm[3,3] :cgl*al33+cg2*a433+cg3*a533$ 

(C296)  al34;q3*dlq4$ 

(C297)  a434:ev4ay*drcq4+coel*d4q4$ 

(C298 )  a534 : -ev5ay*drcq4+coe*d5q4$ 

(C299)  cm[3,4] ;cgl*al34+cg2*a434+cg3*a534$ 

(C300)  al35;q3*dlq5$ 

(C301)  a435:ev4ay*drcq5+coel*d4q5$ 

(C3 02 )  a535 : -ev5ay*drcq5+coe*d5q5$ 

(C303)  cm[3,5] :cgl*al35+cg2*a435+cg3*a535$ 
(C304)  rcazt:rc*azt$ 
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(C305)  ev4az : ev4*azt$ 

(C306)  ev5az:ev5*azt$ 

(C307)  coel:q4+rcazt$ 

(C308)  coe;q4-rcazt$ 

(C309)  al41:q4*dlql$ 

(C310)  a441: ev4az*drcql+coel*d4ql$ 

(C311)  a541:-ev5az*drcql+coe*d5ql$ 

(C312)  cin[4, 1]  ;cgl*al41+cg2*a441+cg3*a541$ 
(C313)  al42:q4*dlq2$ 

(C314)  a442 :ev4az*drcq2+coel*d4q2$ 

(C315)  a542 : -ev5az*drcq2+coe*d5q2$ 

(C316)  cin[4,2]  :cgl*al42+cg2*a442+cg3*a542$ 
(C317)  al43:q4*dlq3$ 

(C318)  a443:ev4az*drcq3+coel*d4q3$ 

(C3 19 )  a54 3 : -ev5az*drcq3+coe*d5q3 $ 

(C320)  cm[4,3] ;cgl*al43+cg2*a443+cg3*a543$ 
(C321)  al44 :q4*dlq4+evl$ 

( C3 2 2 )  a44 4 : ev4+ev4az*drcq4  +coel*d4q4 $ 

(C323 )  a544 : ev5-ev5az*drcq4+coe*d5q4$ 

(C324)  cm[4,4] ;cgl*al44+cg2*a444+cg3*a544$ 

(C325)  al45:q4*dlq5$ 

(C326)  a445: ev4az*drcq5+coel*d4q5$ 

(C327)  a545:-ev5az*drcq5+coe*d5q5$ 

(C328)  cm[4,5] :cgl*al45+cg2*a445+cg3*a545$ 
(C329)  rctt:rc*tt$ 

(C330)  coe:0. 5* (q2**2+q3**2+q4**2)  *q6$ 
(C331)  rt:rc*dttql+tt*drcql$ 

(C332)  al51:2*coe*dlql$ 

(C333)  a451:ev4* (depql+rt) + (pp+rctt) *d4ql$ 
(C334)  a551:ev5* (depql-rt) + (pp-rctt) *d5ql$ 
(C335)  cm[5,l] : cgl*al51+cg2*a451+cg3*a551$ 
(C336)  rt:rc*dttq2+tt*drcq2$ 

(C337)  al52:coe*dlq2-dlql*q2$ 

(C338)  a452:ev4* (depq2+rt) + (pp+rctt) *d4q2$ 
(C339)  a552;ev5* (depq2-rt) + (pp-rctt)  *d5q2$ 
(C340)  cm [5, 2] : cgl*al52+cg2*a452+cg3*a552$ 
(C341)  rt:rc*dttq3+tt*drcq3$ 

(C342)  al53:coe*dlq3-dlql*q3$ 

(C343)  a453:ev4* (depq3+rt)  +  (pp+rctt)  *d4q3$ 
(C344)  a553:ev5* (depq3-rt) + (pp-rctt) *d5q3$ 
(C346)  rt;rc*dttq4+tt*drcq4$ 

(C347)  al54:coe*dlq4-dlql*q4$ 

(C348  )  a454:ev4* (depq4+rt) + (pp+rctt)  *d4q4$ 
(C349)  a554:ev5* (depq4-rt) + (pp-rctt) *d5q4$ 
(C350)  cm[5,4] :cgl*al54+cg2*a454+cg3*a554$ 
(C351)  rt:tt*drcq5$ 

(C352)  al55:coe*dlq5$ 

(C353)  a455:ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
(C354 )  a555 : ev5* (depq5-rt)  +  (pp-rctt)  *d5q5$ 
(C355)  cm[5, 5] :cgl*al55+cg2*a455+cg3*a555$ 
(C356)  diff :cp.m+m.cm$ 
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(C357)  diff :ratexpand(diff ) ; 


(D357) 


(C358) 


closef ile(Ccsupl) $ 


[ 

0 

0 

0 

0 

0 

] 

[ 

] 

[ 

0 

0 

0 

0 

0 

3 

[ 

3 

[ 

0 

0 

0 

0 

0 

3 

[ 

3 

[ 

0 

0 

0 

0 

0 

3 

[ 

3 

[ 

0 

0 

0 

0 

0 

3 
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(C3)  cp: matrix ([0,0, 0,0,0] , [0,0, 0,0,0] 

0,0, 0,0])$ 

( C4 )  cm : matrix ([0,0, 0,0,0], [0,0, 0,0,0] 

0,0, 0,0])$ 

(C5)  diff: matrix ( [0,0, 0,0,0], [0,0, 0,0, 

0,0, 0,0,0])$ 

(C6)  m:matrix( [1,0, 0,0,0], [0,1, 0,0,0], 

0,0,0,!])$ 

(C7)  sign;l$ 

(C8)  cggl: (gam-1) /gam$ 

(C9)  cgg2:l/(2*gam)$ 

(CIO)  sada:sqrt(ztx**2+zty**2+ztz**2)  $ 
(Cll)  axt: ztx/sada$ 

(C12)  ayt: zty/sada$ 

(C13)  azt: ztz/sada$ 

(C14)  rqrq:q2**2+q3**2+q4**2$ 

(C15)  q6:l/ql$ 

(C16)  pr; (gam-1) * (q5-0. 5*rqrq*q6) $ 
(C17)  prgam:pr*gam$ 

(C18)  pp:q5+pr$ 

(C19  )  c:sqrt(prgam*q6)  $ 

(C20)  tt: (q2*axt+q3*ayt+q4*azt) *q6$ 
(C21)  rc:ql*c$ 

(C22)  csad:c*sada$ 

(C23)  el:tt*sada$ 

(C24)  e4:el+csad$ 

(C25)  e5:el-csad$ 

(C26)  evl:el$ 

(C27)  ev4;e4$ 

(C28)  ev5;0.0$ 

(C29)  cgl;cggl$ 

(C30)  cg2;cgg2$ 

(C31)  cg3:0.0$ 

(C32)  dlql:-evl*q6$ 

(C33)  dlq2;ztx*q6$ 

(C34)  dlq3:zty*q6$ 

(C35)  dlq4:ztz*q6$ 

(C36)  dlq5:0.0$ 

(C37)  coe : gam* (gam-1) / (2*rc) $ 

(C38)  gmlq6: (gam-1) *q6$ 

(C39)  drcql:coe*q5$ 

(C40)  drcq2;-coe*q2$ 

(C41)  drcq3;-coe*q3$ 

(C42)  drcq4:-coe*q4$ 

(C43)  drcq5:coe*ql$ 

(C44)  dcql: (drcql-c) *q6$ 

(C45)  dcq2:drcq2*q6$ 

(C46)  dcq3 :drcq3*q6$ 

(C47)  dcq4:drcq4*q6$ 

(C48)  dcq5:drcq5*q6$ 

(C49)  depql:0.5*gmlq6*rqrq*q6$ 


, [0,0, 0,0,0]  ,  [0,0, 0,0,0] , [0, 
, [0,0, 0,0,0] , [0,0, 0,0,0] , [0, 
0],[0,0,0,0,0],[0,0,0,0,0],[ 
[0,0,1,0,0] , [0,0, 0,-1, 0] , [0, 
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(C50)  depq2 :-q2*gmlq6$ 

(C51)  depq3:-q3*giiilq6$ 

(C52)  depq4 ; -q4*gmlq6$ 

(C53)  depq5:gam$ 

(C54)  dttql:-tt*q6$ 

(C55)  dttq2;axt*q6$ 

(C56)  dttq3 :ayt*q6$ 

(C57)  dttq4 ;azt*q6$ 

(C58)  dttq5:0.0$ 

(C59)  d4ql: sada* (dttql+dcql) $ 

(C60)  d4q2:sada*(dttq2+dcq2)$ 

(C61)  d4q3 : sada* (dttq3+dcq3)  $ 

(C62)  d4q4:sada*(dttq4+dcq4) $ 

(C63)  d4q5:sada*dcq5$ 

(C64)  d5ql:sada* (dttql-dcql)  $ 

(C65)  d5q2;sada*(dttq2-dcq2)$ 

( C6  6 )  d5q3 : sada* ( dttq3 -dcq3 ) $ 

(C67)  d5q4:sada*(dttq4-dcq4) $ 

(C68)  d5q5:-d4q5$ 

(C69)  a411:ev4+ql*d4ql$ 

(C70)  a511:ev5+ql*d5ql$ 

(C71)  cp[l, 1] :cg2*a411+cg3*a511$ 

(C72)  cp[l,2]  :  (cgl*dlq2+cg2*d4q2+cg3*d5q2)*ql$ 

(C73)  cp[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 

(C74)  cp[l,4] : (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 

(C75)  cp[l,5] : (cg2*d4q5+cg3*d5q5) *ql$ 

(C76)  rcaxt : rc*axt$ 

(C77)  ev4ax;ev4*axt$ 

(C78)  ev5ax:ev5*axt$ 

(C79)  coel:q2+rcaxt$ 

(C80)  coe :q2 -rcaxt $ 

(C81)  al21:q2*dlql$ 

(C82 )  a42 1 ; ev4ax*drcql+coel*d4ql$ 

( C8  3 )  a52 1 : -ev5ax*drcql+coe*d5ql$ 

(C84)  cp[2,l] ;cgl*al21+cg2*a421+cg3*a521$ 

(C85)  al22:q2*dlq2+evl$ 

(C86)  a422 :ev4+ev4ax*drcq2+coel*d4q2$ 

(C87)  a522:ev5-ev5ax*drcq2+coe*d5q2$ 

(C88)  cp[2,2] :cgl*al22+cg2*a422+cg3*a522$ 

(C89)  al23:q2*dlq3$ 

(C90)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C91)  a523 : -ev5ax*drcq3+coe*d5q3$ 

(C92)  cp[2,3] ;cgl*al23+cg2*a423+cg3*a523$ 

(C93)  al24 :q2*dlq4$ 

(C94)  a424;ev4ax*drcq4+coel*d4q4$ 

(C95)  a524 ; -ev5ax*drcq4+coe*d5q4$ 

(C96)  cp[2,4] :cgl*al24+cg2*a424+cg3*a524$ 

(C97)  al25:q2*dlq5$ 

(C98)  a425 : ev4ax*drcq5+coel*d4q5$ 

(C99)  a525;-ev5ax*drcq5+coe*d5q5$ 

(ClOO)  cp[2,5] :cgl*al25+cg2*a425+cg3*a525$ 
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(ClOl) 

(C102) 

(C103) 

(C104) 

(C105) 

(C106) 

(C107) 

(CIOS) 

(C109) 

(Clio) 

(Clll) 

(C112) 

(C113) 

(C114) 

(C115) 

(C116) 

(C117) 

(C118) 

(C119) 

(C120) 

(C121) 

(C122) 

(C123) 

(C124) 

(C125) 

(C126) 

(C127) 

(C128) 

(C129) 

(C130) 

(C131) 

(C132) 

(C133) 

(C134) 

(C135) 

(C136) 

(C137) 

(C138) 

(C139) 

(C140) 

(C141) 

(C142) 

(C143) 

(C144) 

(C145) 

(C146) 

(C147) 

(C148) 

(C149) 

(C150) 

(C151) 


rcayt:rc*ayt$ 
ev4  ay ; ev4  *  ay t  $ 
ev5  ay ;  ev5  *  ay  t  $ 
coel : q3+rcayt$ 
coe:q3-rcayt$ 
al31:q3*dlql$ 

a43 1 : ev4ay*drcql+coel*d4ql$ 
a53 1 : -ev5ay*drcql+coe*d5ql$ 
cp[3,l] :cgl*al31+cg2*a431+cg3*a531$ 
al32:q3*dlq2$ 

a432 : ev4ay*drcq2+coel*d4q2$ 

a532 : -ev5ay*drcq2+coe*d5q2$ 

cp [ 3 , 2 ] : cgl*al32+cg2*a432+cg3*a532$ 

al33:q3*dlq3+evl$ 

a433 ;ev4+ev4ay*drcq3+coel*d4q3$ 

a533 ;ev5-ev5ay*drcq3+coe*d5q3$ 

cp [ 3 , 3 ] : cgl*al33+cg2*a433+cg3*a533$ 

al34:q3*dlq4$ 

a434 :ev4ay*drcq4+coel*d4q4$ 

a534 : -ev5ay*drcq4+coe*d5q4$ 

cp[3 ,4] ;cgl*al34+cg2*a434+cg3*a534$ 

al35;q3*dlq5$ 

a435 ; ev4ay*drcq5+coel*d4q5$ 

a535 : -ev5ay*drcq5+coe*d5q5$ 

cp [ 3 , 5 ] : cgl*al35+cg2*a435+cg3*a535$ 

rcazt:rc*azt$ 

ev4az;ev4*azt$ 

ev5az : ev5*azt$ 

coel : q4+rcazt$ 

coe:q4 -rcazt$ 

al41:q4*dlql$ 

a441:ev4az*drcql+coel*d4ql$ 

a54 1 : -ev5az*drcql+coe*d5ql$ 

cp[4, 1] :cgl*al41+cg2*a441+cg3*a541$ 

al42:q4*dlq2$ 

a442 : ev4az*drcq2+coel*d4q2$ 

a542 : -ev5az*drcq2+coe*d5q2$ 

cp[4 , 2 ] :cgl*al42+cg2*a442+cg3*a542$ 

al43:q4*dlq3$ 

a443 :ev4az*drcq3+coel*d4q3$ 
a543 ; -ev5az*drcq3+coe*d5q3$ 
cp[4,3] :cgl*al43+cg2*a443+cg3*a543$ 
al44 :q4*dlq4+evl$ 
a4  4  4 : ev4 +ev4  a  z  *dr cq4  +coel *d4q4  $ 
a544 : ev5-ev5az*drcq4+coe*d5q4$ 
cp[4,4] :cgl*al44+cg2*a444+cg3*a544$ 
al45:q4*dlq5$ 

a445 : ev4az*drcq5+coel*d4q5$ 

a545 : -ev5az*drcq5+coe*d5q5$ 

cp[4, 5] :cgl*al45+cg2*a445+cg3*a545$ 

rctt:rc*tt$ 
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(C152)  coe: 0. 5* (q2**2+q3**2+q4**2)  *q6$ 
(C153)  rt:rc*dttql+tt*drcql$ 

(C154)  al51:2*coe*dlql$ 

(C155)  a451:ev4* (depql+rt) +(pp+rctt)  *d4ql$ 

(C156)  a551:ev5* (depql-rt)  +  (pp-rctt)  *d5ql$ 
(C157)  cp[5,l] :cgl*al51+cg2*a451+cg3*a551$ 

(C158)  rt:rc*dttq2+tt*drcq2$ 

(C159)  al52:coe*dlq2-dlql*q2$ 

(C160)  a452  :ev4*  (depq2+rt)  +  (pp+rctt)  *d4q2$ 
(C161)  a552  :ev5*  (depq2-rt)  +  (pp-rctt)  *d5q2$ 
(C162)  cp[5,2] :cgl*al52+cg2*a452+cg3*a552$ 
(C163)  rt:rc*dttq3+tt*drcq3$ 

(C164)  al53;coe*dlq3-dlql*q3$ 

(C165)  a453:ev4*(depq3+rt)  + (pp+rctt)  *d4q3$ 

(C166)  a553:ev5* (depq3-rt) + (pp-rctt) *d5q3$ 

(C167)  cp[5,3] :cgl*al53+cg2*a453+cg3*a553$ 

(C168)  rt:rc*dttq4+tt*drcq4$ 

(C169)  al54:coe*dlq4-dlql*q4$ 

(C170)  a4 54  :ev4*(depq4+rt)  + (pp+rctt)  *d4q4$ 
(C171)  a554: ev5 * ( depq4 -rt )  +  ( pp-rctt) *d5q4 $ 
(C172)  cp[5,4] ;cgl*al54+cg2*a454+cg3*a554$ 

(C173)  rt:tt*drcq5$ 

(C174)  al55:coe*dlq5$ 

(C175)  a4 55 :ev4*(depq5+rt)  + (pp+rctt)  *d4q5$ 
(C176)  a555:ev5*(depq5-rt)+ (pp-rctt) *d5q5$ 

(C177)  cp[5,5] :cgl*al55+cg2*a45 --cg3*a555$ 
(C178)  ql:ql$ 

(C179)  q2:q2$ 

(C180)  q3:q3$ 

(C181)  q4:-q4$ 

(C182)  q5;q5$ 

(C183)  ztx:-ztx$ 

(C184)  zty:-zty$ 

(C185)  sign:-l$ 

(C186)  cggl: (gam-1) /gam$ 

(C187)  cgg2:l/ (2*gam) $ 

(C188)  sada:sqrt(ztx**2+zty**2+ztz**2)  $ 
(C189)  axt;ztx/sada$ 

(C190)  ayt;zty/sada$ 

(C191)  azt; ztz/sada$ 

(C192)  rqrq:q2**2+q3**2+q4**2$ 

(C193)  q6:l/ql$ 

(C194)  pr; (gam-1) *(q5-0.5*rqrq*q6)$ 

(C195)  prgam:pr*gam$ 

(C196)  pp:q5+pr$ 

(C197)  c;sqrt(prgam*q6) $ 

(C198)  tt: (q2*axt+q3*ayt+q4*azt)  *q6$ 

(C199)  rc:ql*c$ 

(C200)  csad:c*sada$ 

(C201)  el:tt*sada$ 

(C202)  e4:el+csad$ 
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(C203)  e5:el-csad$ 

(C204)  evl:el$ 

(C205)  ev4;0.0$ 

(C206)  ev5:e5$ 

(C207)  cgl:cggl$ 

(C208)  cg2:0.0$ 

(C209)  cg3:cgg2$ 

(C210)  dlql:-evl*q6$ 

(C211)  dlq2:ztx*q6$ 

(C212)  dlq3:zty*q6$ 

(C213)  dlq4:ztz*q6$ 

(C214)  dlq5;0.0$ 

(C215)  coeigam* (gam-l) / (2*rc)  $ 

(C216)  gmlqe : (gam-1) *q6$ 

(C217)  drcql; coe*q5$ 

(C218)  drcq2 : -coe*q2$ 

(C219)  drcq3 : -coe*q3$ 

(C220)  drcq4 ; -coe*q4$ 

(C221)  drcq5:coe*ql$ 

(C222)  dcql: (drcql-c) *q6$ 

(C223)  dcq2 :drcq2*q6$ 

(C224)  dcq3 :drcq3*q6$ 

(C225)  dcq4;drcq4*q6$ 

(C226)  dcq5;drcq5*q6$ 

(C227)  depql: 0.5*gmlq6*rqrq*q6$ 

(C228)  depq2:-q2*gmlq6$ 

(C229)  depq3 : -q3*gmlq6$ 

(C230)  depq4 : -q4*gmlq6$ 

(C231)  depq5:gam$ 

(C232)  dttql:-tt*q6$ 

(C233)  dttq2:axt*q6$ 

(C234)  dttq3 :ayt*q6$ 

(C235)  dttq4:azt*q6$ 

(C236)  dttq5:0.0$ 

(C237)  d4ql; sada* (dttql+dcql) $ 

(C238  )  d4q2;sada* (dttq2+dcq2)  $ 

(C239)  d4q3 :sada* (dttq3+dcq3) $ 

(C240)  d4q4 ; sada* (dttq4+dcq4) $ 

(C241)  d4q5;sada*dcq5$ 

(C242)  d5ql:sada* (dttql-dcql)  $ 

(C243)  d5q2:sada*(dttq2-dcq2) $ 

(C244)  d5q3:sada*(dttq3-dcq3)$ 

(C245)  d5q4 :sada* (dttq4-dcq4)  $ 

(C246)  d5q5:-d4q5$ 

(C247)  a411:ev4+ql*d4ql$ 

(C248)  a511:ev5+ql*d5ql$ 

(C249)  cm[l, 1] :cg2*a411+cg3*a511$ 

(C250)  cm[l,2] : (cgl*dlq2+cg2*d4q2+cg3*d5q2) *ql$ 
(C251)  cm[l,3] : (cgl*dlq3+cg2*d4q3+cg3*d5q3) *ql$ 
(C252)  cm[l,4]: (cgl*dlq4+cg2*d4q4+cg3*d5q4) *ql$ 
(C253)  cm[l,5] : (cg2*d4q5+cg3*d5q5)*ql$ 
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(C254)  rcaxt:rc*axt$ 

(C255)  ev4ax:ev4*axt$ 

(C256)  ev5ax:ev5*axt$ 

(C257)  coel:q2+rcaxt$ 

(C258)  coe:q2-rcaxt$ 

(C259)  al21:q2*dlql$ 

(C260)  a421:ev4ax*drcql+coel*d4ql$ 

( C2 6 1 )  a52 1 : -ev5ax*drcql+coe*d5ql$ 

(C262)  cin[2,l]  : cgl*al21+cg2*a421+cg3*a521$ 
(C263)  al22:q2*dlq2+evl$ 

(C264)  a422 :  ev4+ev4ax*drcq2+coel*d4q2$ 
(C265)  a522 :ev5-ev5ax*drcq2+coe*d5q2$ 

(C266)  cm[2,2] : cgl*al22+cg2*a422+cg3*a522$ 
(C267)  al23:q2*dlq3$ 

(C268)  a423 :ev4ax*drcq3+coel*d4q3$ 

(C269)  a523 ;-ev5ax*drcq3+coe*d5q3$ 

(C270)  cm[2,3] :cgl*al23+cg2*a423+cg3*a523$ 
(C271)  al24;q2*dlq4$ 

(C272)  a424 :ev4ax*drcq4+coel*d4q4$ 

(C273)  a524 ; -ev5ax*drcq4+coe*d5q4$ 

(C274)  cm[2,4] : cgl*al24+cg2*a424+cg3*a524$ 

(C275)  al25:q2*dlq5$ 

(C276)  a425 : ev4ax*drcq5+coel*d4q5$ 

(C277 )  a525 : -ev5ax*drcq5+coe*d5q5$ 

(C278)  cm[2,5] ;cgl*al25+cg2*a425+cg3*a525$ 
(C279)  rcayt:rc*ayt$ 

(C280)  ev4ay:ev4*ayt$ 

(C281)  ev5ay : ev5*ayt$ 

(C282)  coel:q3+rcayt$ 

(C283)  coe:q3-rcayt$ 

(C284)  al31:q3*dlql$ 

(C285)  a431:ev4ay*drcql+coel*d4ql$ 

(C286)  a531;-ev5ay*drcql+coe*d5ql$ 

(C287)  cm[3,l] :cgl*al31+cg2*a431+cg3*a531$ 

(C288)  al32:q3*dlq2$ 

(C289)  a432 :ev4ay*drcq2+coel*d4q2$ 

(C290)  a532 ; -ev5ay*drcq2+coe*d5q2$ 

(C291)  cm[3,2] : cgl*al32+cg2*a432+cg3*a532$ 
(C292)  al33:q3*dlq3+evl$ 

( C2  9  3 )  a4  3  3 : ev4 +ev4 ay *dr cq3  +coel*d4q3  $ 
(C294)  a533 :ev5-ev5ay*drcq3+coe*d5q3$ 
(C295)  ciii[3,3]  :cgl*al33+cg2*a433+cg3*a533$ 
(C296)  al34:q3*dlq4$ 

(C297)  a434 :ev4ay*drcq4+coel*d4q4$ 

(C298)  a534 ;-ev5ay*drcq4+coe*d5q4$ 

(C299)  cin[3,4]  : cgl*al34+cg2*a434+cg3*a534$ 
(C300)  al35:q3*dlq5$ 

( C3  0 1 )  a4  3  5 : ev4  ay *dr cq5+coel*d4q5  $ 

( C3  02 )  a5  3  5 : -ev5ay*drcq5+coe*d5q5  $ 

(C303)  cm[3,5] ;cgl*al35+cg2*a435+cg3*a535$ 
(C304)  rcazt;rc*azt$ 
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(C305) 

(C306) 

(C307) 

(C308) 

(C309) 

(C310) 

(C311) 

(C312) 

(C313) 

(C314) 

(C315) 

(C316) 

(C317) 

(C318) 

(C319) 

(C320) 

(C321) 

(C322) 

(C323) 

(C324) 

(C325) 

(C326) 

(C327) 

(C328) 

(C329) 

(C330) 

(C331) 

(C332) 

(C333) 

(C334) 

(C335) 

(C336) 

(C337) 

(C338) 

(C339) 

(C340) 

(C341) 

(C342) 

(C343) 

(C344) 

{C345) 

(C346) 

(C347) 

(C348) 

(C349) 

(C350) 

(C351) 

(C352) 

(C353) 

(C354) 

(C355) 


CCSUBl 


ev4az;ev4*azt$ 
evSaz : ev5*azt$ 
coel : q4+rcazt$ 
coe:q4-rcazt$ 
al41:q4*dlql$ 

a441: ev4az*drcql+coel*d4ql$ 

a541: -ev5az*drcql+coe*d5ql$ 

cm [ 4 , 1 ] : cgl*al4 l+cg2  *a44 l+cg3  *a54 1$ 

al42:q4*dlq2$ 

a442 :ev4az*drcq2+coel*d4q2$ 

a542 : -ev5az*drcq2+coe*d5q2$ 

cm[4 , 2 ] : cgl*al42+cg2*a442+cg3*a542$ 

al43:q4*dlq3$ 

a443 ;ev4az*drcq3+coel*d4q3$ 

a543 : -ev5az*drcq3+coe*d5q3$ 

cm[4,3] ;cgl*al43+cg2*a443+cg3*a543$ 

al44 :q4*dlq4+evl$ 

a444 : ev4+ev4az*drcq4+coel*d4q4$ 

a544 : ev5-ev5az*drcq4+coe*d5q4$ 

cm[4 , 4 ] ; cgl*al44+cg2*a444+cg3*a544$ 

al45:q4*dlq5$ 

a445 ; ev4az*drcq5+coel*d4q5$ 

a545 : -ev5az*drcq5+coe*d5q5$ 

cm[4 , 5] ; cgl*al45+cg2*a445+cg3*a545$ 

rctt:rc*tt$ 

coe:0.5*(q2**2+q3**2+q4**2) *q6$ 
rt ; rc*dttql+tt*drcql$ 
al51:2*coe*dlql$ 

a451:ev4* (depql+rt) +(pp+rctt) *d4ql$ 

a551 : ev5* (depql-rt) + (pp-rctt) *d5ql$ 

cm[5,l] :cgl*al51+cg2*a451+cg3*a551$ 

rt : rc*dttq2+tt*drcq2  $ 

al52 :coe*dlq2-dlql*q2$ 

a452:ev4* (depq2+rt) + (pp+rctt) *d4q2$ 

a552 ; ev5* (depq2-rt) + (pp~rctt) *d5q2$ 

cm[5 , 2 ] : cgl*al52+cg2*a452+cg3*a552$ 

rt:rc*dttq3+tt*drcq3$ 

al53:coe*dlq3-dlql*q3$ 

a4  5  3 : ev4  * ( depq3  +rt )  +  ( pp+rctt ) *d4q3  $ 

a553:ev5* (depq3-rt) + (pp-rctt) *d5q3$ 

cm[5, 3 ] ;cgl*al53+cg2*a453+cg3*a553$ 

rt : rc*dttq4+tt*drcq4  $ 

al54 : coe*dlq4-dlql*q4$ 

a454 :ev4* (depq4+rt) + (pp+rctt) *d4q4$ 

a554 :ev5* (depq4-rt) + (pp-rctt) *d5q4$ 

cm[5 , 4 ] :cgl*al54+cg2*a454+cg3*a554$ 

rt: tt*drcq5$ 

al55 : coe*dlq5$ 

a455:ev4* (depq5+rt) + (pp+rctt) *d4q5$ 
a555 ; ev5* (depq5-rt) + (pp-rctt) *d5q5$ 
cm [5, 5] :cgl*al55+cg2*a455+cg3*a555$ 
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(C356) 

(C357) 


(D357) 


dif  f :  cp .  m+m .  cia$ 
diff :ratexpand(diff ) ; 

[  0 

C 

[  0 

[ 

[  0 

[ 

[  0 

t 

[  0 


(C358)  closefile(Ccsubl) $ 


